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SECTION  1 
INTRODUCTION 


1.1  Purpose. 

The  purpose  of  this  document  is  to  describe  the  computer  program 
packages  and  related  equipments  being  delivered  under  NOSC 
Contract  N66001-33-D-0094,  Delivery  Order  002203.  The  following 
materials  will  be  divided  between  two  major  topics.  The  first 
topic  is  support  for  the  Ingr es-to-dBase I I  translator,  t.ne  second 
is  support  for  the  electronic  spread  sheet  package,  Supercomp- 
Twenty.  These  programs  are  part  of  the  larger  Project  Management 
Support  System  (PMSS).  PMSS  has  as  one  of  its  objectives  to  make 
a  set  of  tools  available  throughout  NOSC  which  are  interoperable 
with  the  Center's  central  computers  and  with  user’s  small 
microcomputer  based  systems.  e  programs  being  delivered  in 
this  document  are  in  support  of  s  objective. 

1.2  Scope. 

The  scope  of  this  document  shall  be  limited  to  the  source  program 
listings  for  the  programs  being  delivered,  shell  scripts  or 
submit  files,  and  documentation  manual  pages.  The  table  of 
contents  has  been  expanded  to  include  the  following  notations  as 
an  aid  to  quickly  identifying  each  component: 


(c) 

Indicates 

a 

C  Language  Program 

(d) 

Indicates 

a 

dBasell  Command  Language  Program 

(csh) 

Indicates 

a 

UNIX  C-shell  Script 

(sub) 

Indicates 

a 

CP/M  Submit  file 

(man ) 

Indicates 

a 

Documentation  Manual  Page 

♦INGRES  is  a  trademark  of  Relational  Technologies, 
is  a  trademark  of  Ashton -Tate,  Inc.;  CP/M 
Digital  Research,  Inc.;  SUPERCOMP-TWENTY  is  a 
Technology,  Inc.;  UNIX  is  a  trademark  of  Bell 


Inc.;  DBASE  II 
is  a  trademark  of 
trademark  of  Access 
Labor ator ies. 
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SECTION  2 


SECTION  2.1 

ingresdbase  ( 1L )  UNIX  Programmer's  Manual  i.ngr  esdbase  ( 1L ) 


NAME 

ingresdbase  -  ingres  /  dBASE  II  translator 


SYNOPSIS 

ingresdbase  <id I di xdatabase ><relation> 


DESCRIPTION 

The  ingresdbase  command  provides  support  for  exchanging  user 
database  files  between  two  popular  relational  database 
management  systems.  Ingres  (by  Relational  Technologies,  Inc) 
and  dBASE  II  (by  Ashton-Tate,  Inc)  databases  may  be 
translated  to  or  from  their  respective  internal  formats  into 
a  form  suitable  for  transporting  over  standard  ASCII  data 
communication  links.  The  command  will  include  sufficient 
information  to  automatically  re-create  the  database  on  the 
other  machine  with  only  modest  user  involvement. 

Command  line  options  are: 


id  requests  ingres-to-dbase  translation. 

d i  requests  dbase-to-ingr es  translation. 


<database>  specifies  the  ingres  database  to  use.  The  speci¬ 
fied  database  must  exist.  You  must  also  have 
adequate  permissions  to  create  temporary  rela¬ 
tions  used  in  the  conversion  process. 


<relation>  specifies  the  ingres  relation  to  be  used.  When 
translating  ingres-to-dbase  the  relation  must 
exist  and  you  must  have  permission  to  read  it. 
When  translating  dbase-to-ingres  the  relation 
will  be  created  if  it  does  not  already  exist. 

If  it  exists,  you  must  own  the  relation  since  it 
will  be  deleted  and  re-created. 


The  translation  process  will  yeild  a  file  in  the  form 
<relation> . s  when  using  the  ingres-to-dbase  option.  The 
translation  process  will  require  as  input  a  file  in  the  form 
of  <relation> . s  when  using  the  the  dbase-to-ingres  option. 
You  will  be  asked  to  "upload"  or  "download"  this  file  from 
your  microcomputer  when  appropriate. 

The  complete  operation  of  this  command  requires  the  use  of 
sumilar  programs  on  the  users  remote  microcomputer.  At 
NOSC,  a  program  diskette  is  available  from  [supply  complete 
reference]  for  exchanging  ingres  databases  on  CCVAX  and 
PMSSVAX  with  dBASE  II  operating  on  CP/M  and  MS-DOS  microcom¬ 
puters. 
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ingresdbase ( 1L) 


UNIX  Programmer's  Manual 


ingresdbase ( 1L ) 


FILES 

ingresdbase  will  create  a  temporary  sub-directory  "tmp"  to 
contain  all  working  files  needed  by  the  translation  process. 
This  directory  will  be  deleted  at  the  end  of  the  process. 

DIAGNOSTICS 

Various  messages  may  be  issued  by  ingr es  depending  upon  your 
permission  and  ownership  status.  Consult  your  ingres  manual 
for  additional  explanation. 


BUGS 

This  command  assumes  that  the  user  is  familiar  with  the 
operation  of  both  INGRES  and  dBASE  II. 

The  "upload"  and  "download"  functions  are  internal  to  this 
command  (using  umodem  ).  They  will  be  modified  when  a  PMSS 
standard  file  transfer  program  is  established. 

The  present  version  of  RTI  ingres  does  not  provide  fixed 
decimal  point  notation  used  by  dBASE  II.  This  translator 
makes  some  "best  guess"  judgements  when  floating  point 
numbers  are  included  in  the  relation. 

AUTHOR 

Mike  Trest,  System  Development  Corportation 
C/O  John  Baird,  NOSC  Code  912 
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SECTION  2.2 


INGRES/DBASE  NROFF  FILE 


.TH  ingresdbase  1L  NCSC 
.uC  4 
,SH  NAME 

ingresdbase  \-  ingres  /  dBASE  II  translator 
.SH  SYNOPSIS 
.B  ingresdbase 

.SB  <id|di>  <database>  <relation> 

.SH  DESCRIPTION 
The 

.1  ingresdbase 

command  provides  support  for  exchanging 
user  database  files 

between  two  popular  relational  database 
management  systems. 

.1  Ingres 

(by  Relational  Technologies,  Inc)  and 
.1  dBASE  II 

(by  Ashton-Tate,  Inc)  databases  may  be  translated 

to  or  from  their  respective 

internal  formats  into  a  form  suitable 

for  transporting  over  standard 

ASCII  data  communication  links. 

The  command  will 

include  sufficient  information  to 
automatically  re-create  the  database 
on  the  other  machine  with  only  modest 
user  involvement. 

«sp 

Command  line  options  are: 

.TP  1.2i 
.1  id 

requests  ingres-to-dbase  translation. 

.TP 
.1  di 

requests  dbase-to-ingres  translation. 

.TP 

.1  <database> 

specifies  the  ingres  database  to  use. 

The  specified  database  must  exist.  You 

must  also  have  adequate  permissions  to  create  temporary 

relations  used  in  the  conversion  process. 

.TP 

.1  <relation> 

specifies  the  ingres  relation  to  be  used. 

When  translating  ingres-to-dbase  the  relation  must  exist 
and  you  must  have  permission  to  read  it.  When  translating 
dbase-to-ingres  the  relation  will  be  created  if  it  does 
not  already  exist.  If  it  exists,  you  must 
own  the  relation  since  it  will  be  deleted  and 
re-created. 
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.SH 

The  translation  process  will  yeild  a  file  in  the  form 
.1  <relation>.s 

when  using  the  ingres-to-dbase  option.  The  translation 
process  will  require  as  input  a  file  in  the  form  of 
.1  <relation>.s 

when  using  the  the  dbase-to-ingres  option.  You  will  be 
asked  to  "upload"  or  "download"  this  file  from  your 
microcomputer  when  appropriate. 

•  sp 

The  complete  operation  of  this  conmand 
requires  the  use  of  sumilar  programs 
on  the  users  remote  microcomputer. 

At  MOSC,  a  program  diskette  is  available 
from 

[supply  complete  reference) 
for  exchanging  ingres  databases  on 
CCVAX  and  PMSSVAX  with  dBASE  II  operating 
on  CP/M  and  MS-DOS  microcomputers. 

.SH  FILES 
.1  ingresdbase 

will  create  a  temporary  sub-directory  "tmp"  to  contain  all 
working  files  needed  by  the  translation  process.  This 
directory  will  be  deleted  at  the  end  of  the  process. 

.SH  DIAGNOSTICS 

Various  messages  may  be  issued  by 
.1  ingres 

depending  upon  your  permission  and  ownership  status.  Consult 
your  ingres  manual  for  additional  explanation. 

.SH  BUGS 

This  conmand  assumes  that  the  user  is  familiar  with 
the  operation  of  both  INGRES  and  dBASE  II. 

.sp 

The  "upload"  and  "download"  functions  are  internal  to 
this  conmand  (using 
.1  umodem 

).  They  will  be  modified  when  a  PMSS 
standard  file  transfer  program  is  established. 

.sp 

The  present  version  of  RXI  ingres  does  not  provide  fixed 
decimal  point  notation  used  by  dBASE  II.  This  translator 
makes  some  "best  guess”  judgements  when  floating  point  numbers  are 
included  in  the  relation. 

.SH  AUTHOR 

Mike  Trest,  System  Development  Corportation 

.be 

C/O  John  Baird,  NOSC  Code  912 
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SECTION  2.3 

File:  MAKEFILE  Size:  IK  Page:  1 


1 

2 

3 

4 

5 

6 

7 

8 
9 

13 
11 
12 
13: 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 


default:  programs 
programs: 

Secho  "The  'c'  programs  for  the  VAX  " 

@echo  "  ingresid  ingres-to-dbase  translator" 

@echo  "  ingresdi  dbase-to-ingres  translator" 

@echo 

@echo  "The  'c'  programs  for  the  micro" 

iecho  "  ingresdb  ingres-to-dbase  translator" 

@echo  "  ingresul  dbase-to-ingres  translator" 

@echo 

@echo  "The  'dbase.cmd '  programs  for  the  micro" 

@echo  "  INGRESMM  main  menu  program" 

@echo  "  INGRESCR  create  relation" 

@echo  "  INGRESDR  delete  relation" 

@echo  "  INGRESCD  clear  data  from  relation" 

@echo  "  INGRES ED  edit  data  of  relation" 

@echo  "  INGRESAN  switch  to  another  relation" 

@echo  "  INGRESSS  show  structure  of  relation" 

@echo  "  INGRES RB  build  stream  for  vax  ingres" 

ingresdi :  ingresdi . c 

cc  ingresdi. c  -o  ingresdi 

ingresid:  ingresid. q 

equel  ingresid. q 
cc  ingresid. c  \ 

~ingres/lib/libq. a  ~ ingres/1 ib/iutil  “ingres/lib/gutil  \ 
-o  ingresid 
rm  ingres id. c 


Characters:  909 
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SECTION  2.4 
File:  INGRESDB.ASE 


Size: 


4K 


Page :  1 


4csh 

4 

4  INGRES/ DBASE  TRANSLATOR 
4 

set  idv*1.2 
set  id*$l 
set  idd=$2 
set  idr=$3 
set  debug»$4 
set  idm*r_$idr 

set  admin*' /etc/del ivermail  -eq  -n  v:trest  ' 
set  idup*'/va/trest/bin/umodem  -rt71' 
set  iddown*'/va/trest/bin/unodem  -st71 ' 
clear 

echo  "ingresdbase:  Sid  Sidd  $idr  ..starting.." 
if  ("$user"  !=  "trest")  then 

echo  "ingresdbase:  INGRES/DBASE  TRANSLATOR  (version  $idv)" 
echo 

echo  "THIS  IS  AN  EXPERIMENTAL  PROGRAM  FOR  MOVING  DATABASE" 
echo  "APPLICATIONS  FROM  INGRES  (CN  CCVAX: )  TO  TOUR" 
echo  "MICROCOMPUTER  USING  dBASE  II." 
echo 

echo  "Please  mail  cottments,  bugs,  etc.  to 
echo  "  To:  ty" 

echo  "  Subject:  ingresdbase  consnents" 
echo 

endif 

if  ( ( ("Sid"  I*  "id")  &&  ("Sid"  l*  "di"))  II  \ 

( ("Sidr"  —  "")  II  ("Sidd"  —  "")))  then 
echo  "  " 
echo  -n  "" 

echo  "ingresdbase:  INGRES/DBASE  TRANSLATOR  (version  Sidv)" 
echo  "  " 

echo  "Usage:  ingresdbase:  < id  I di >  <database>  <relation>" 
echo  "where  'id'  is  ingres-to-dbase  requested" 

echo  "  'di '  is  dbase-to-ingres  requested" 

echo  "  <database>  is  the  ingres  database  to  use" 

echo  "  <relation>  is  the  ingres  relation  to  use" 

echo  "  " 

echo  "  If  <relation>.s  does  not  exist  in  the" 

echo  "  current  directory,  umodero  will  be  called" 

echo  "  to  upload  it  from  the  micro." 

echo  "  " 
exit 

endif 

set  idp*'pwd' 

set  idw-Sidp/tnp 

if  ("Sidp"  —  "Sidw")  then 

echo  "csh  has  failed.  Please  this  failure  to  system  support." 
exit 
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File:  INGRESDB.ASE 


Size: 


4K 


Page :  2 


51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 
30 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 


else 

rm  -f  -r  Sidw 
mkdir  Sidw 

echo  "Subject:  ingresdbase:  usage  SUSER  "  >>  Sidw/usage 
echo  ""  »  Sidw/usage 
echo  -n  'date'  »  Sidw/usage 

echo  "  ingresdbase:  Sid  Sidd  $idr  "  >>  Sidw/usage 

endif 

# 

#  INGRES -TO-DBASE 

# 

if  ("Sid"  —  "id")  then 

echo  "Building  $idw/$idr.s  from  INGRES:  Sidd  Sidr" 
ingresid  Sidd  Sidr  Sidw  Sdebug 
if  (  -e  Sidw/Sidm.no)  then 

echo  "destroy  Sidm  \\g"  >  $idw/$idm.rm 
ingres  -s  Sidd  <  Sidw/Sidm.rm 
mv  -f  $idw/$idm.s  $idw/$idr.s 

endif 

echo  -n  "ready  to  download  Sidw/ Sidr. s  now?  (y/n)" 
set  q*$< 

if  ($q  "")  set  q»"y" 

if  ( ( Sq  !*  "y")  &&  ($q  !*  "n"))  set  q="n" 

if  ($q  a-  "y")  then 

echo  "Ok:  Siddown  $idw/$idr.s" 

Siddown  $idw/$idr.s 

else 

mv  -f  $idw/$idr.s  $idp/$idr.s 

echo  "No  download.  $idw/$idr.s  saved  in  Sidp" 

endif 

echo  'date'  »  Sidw/usage 
Sadrain  <  Sidw/usage 
if  ("Sdebug"  !=*  "debug")  then 
rm  -r  -f  Sidw 

endif 

echo  "ingresdbase:  Sid  Sidd  Sidr  . .completed. . " 
exit 

endif 

# 

#  DBASE -TO- INGRES 

# 

if  ("Sid"  —  "di")  then 

if  (!(-e  $idw/$idr.s)  &&  (-e  Sidp/Sidr .s) )  then 

echo  "ingresdbase:  USING  EXISTING  FILE  Sidp/Sidr. s  " 

In  Sidp/Sidr. s  Sidw 

endif 

if  (!(-e  $idw/$idr .s) )  then 

echo  "ingresdbase:  Sidr.s  is  being  uploaded  from  micro" 
echo  "ingresdbase:  Sidup  Sidw/Sidr .s"" 

Sidup  $idw/$idr.s 
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File: 


101 

102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 
129: 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 


INGRESDB.ASE  Size:  4K 


Page:  3 


end  if 

ingresdi  $idd  $idr  $idw  Sdebug 
if  (-e  $idw/$idr. ing)  than 

if  (-e  $idw/$idr .dat)  then 

echo  "INGRES:  $idd  <  $idw/$idr.ing" 
ingres  -s  $idd  <  $idw/$idr .ing 

else 

echo  "ingresdbase:  ERROR:  $idw/$idr .dat  not  found" 
exit 

endif 

else 

echo  "ingresdbase:  $idw/$idr  .ing  not  present" 
echo  "ingresdbase:  trying  $idw/$idm. ing" 
if  (-e  $idw/$idm. ing)  then 

if  (-e  $idw/$idm.mi)  then 

echo  "ingresdbase:  using  $idw/$idm. ing" 

echo  ""  »  $idw/$idm. ing 

cat  $idw/$idm.mi  »  $idw/$idm. ing 

endif 

if  (-e  $idw/$idm.dat)  then 

echo  "INGRES:  $idd  <  $idw/$idm. ing" 
ingres  -s  $idd  <  $idw/$idm.  ing 

else 

echo  "ingresdbase:  ERROR:  $idw/$idm.dat  not  found" 
exit 

endif 

else 

echo  "ingresdbase:  ERROR:  cannot  find  $idw/$idr .ing" 
echo  "ingresdbase:  or  re-mapped  $idw/$idm. ing" 

exit 

endif 

endif 

endif^ 

echo  'date'  »  $idw/usage 
$admin  <  $idw/ usage 
if  ("Sdebug"  !»  "debug")  then 
rm  -r  -f  Sidw 

endif 

echo  "ingresdbase:  Sid  Sidd  $idr  ..completed.." 
exit 

endif 
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1: 

/* 

2: 

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★I** 

3: 

★ 

ingresid.q  "Get  INGRES 

attributes  for  database  relation" 

4: 

* 

build  <relation>.s  file  for  porting  to  micro 

5: 

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★I** 

6: 

7: 

8: 

* 

★ 

PROGRAM  FUNS  CN  VAX  11/780  UNDER  UNIX 

9: 

10: 

★ 

* 

Usage:  ingresid  [-sir] 

<database>  <relation>  <wdn> 

11: 

* 

12: 

★ 

<database>  name  of  an  existing  database 

13: 

* 

<relation>  name  of  a  relation  in  that  database 

14: 

* 

<wdn> 

working  directory  name 

15: 

********* w******************************************************************* 

16: 

V 

17: 

18: 

4 include  <stdio.h> 

19: 

20: 

#define 

MAXAJTR  32 

/*  maximum  attributes  per  relation 

*/ 

21: 

#define 

MAXNAME  10 

/*  maximum  size  of  attribute  name 

*/ 

22: 

23: 

/* 

24: 

* 

these  items  must  be  (mown  to  EQUEL,  INGRES  and  C 

25: 

*/ 

26: 

*# 

char  *database ; 

27: 

4# 

char  delation; 

28: 

4# 

char  *datafile; 

29: 

4# 

char  relid (20 ]; 

30: 

4# 

char  name  [20]; 

31: 

4# 

char  fnttt  [2] ; 

32: 

4# 

int  id; 

33: 

4* 

int  f  rml ; 

34: 

4# 

int  off ; 

35: 

36: 

/* 

37: 

* 

following  items  known  only  to  C 

38: 

V 

39: 

struct 

attrib 

/*  array  of  attribute  descriptions 

*/ 

40: 

{ 

41: 

char  name [MAXNAME +1] ; 

/♦attribute  name*/ 

42: 

char  frmt; 

/♦attribute  format  type*/ 

43: 

int  f  rml ; 

/♦attribute  format  length*/ 

44: 

int  decimal ; 

/♦attribute  decimal  positions*/ 

45: 

int  offset; 

/♦attribute  starting  location*/ 

46: 

} 

attr [MAXATTR] ,  *attrcur 

,  o rig [MAXATTR] ,  *origcur; 

47: 

48: 

FILE 

♦stream; 

49: 

50: 

char 

*ptr  1 ,  *ptr  2 ,  *ptr  3 ; 
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52 

char 

wdn  [  120 ]  ; 

53 

char 

file_s  [120] ; 

54 

char 

file_dat [120] ; 

55 

char 

rejnapped  [120] ; 

56 

char 

map_out [120] ; 

57 

char 

map_in[120] ; 

58 

char 

map_temp[120]  ; 

59 

char 

command [120] ; 

60 

61 

int 

i  #  ii ; 

62 

int 

current , last , width , nonascii ; 

63 

int 

flagr , flags; 

64 

65 

/* 

66 

★★■a************************************************************************** 

67 

* 

this  is  a  main  program  which  expects  command 

line  arguments 

68 

***************************************************************************** 

69 

V 

70 

main (argc, argv) 

71 

int 

argc; 

72 

char 

*argv  []  ; 

73 

{ 

74 

75 

while(argc  >  1  &&  argv[l][0]  ™ 

76 

{ 

77 

for (i-l;argv[l] [i] ;i++) 

78 

{ 

79 

a#itch(argv[l]  [  i  ] ) 

80 

{ 

81 

case  'r ' : 

82 

case  'R':  flagr++;  break; 

83 

case  's' : 

84 

case  'S':  flags++;  break; 

85 

} 

86 

} 

87 

argc—; 

88 

argv-t-+; 

89 

} 

90 

if  (! flagr  &&  ! flags)  flagr *flags»l; 

91 

if  (argc  <*  3) 

92 

{ 

93 

printf ("Usage:  ingresid  <database>  <relation> 

<wdn>\n") ; 

94 

printf ("where  < database >  name  of 

an 

existing  database\n") ; 

95 

printf  ("  <relation>  name  of 

a 

relation  in  database \n" ) ; 

96 

printf ("  <wdn>  working 

directory  name") ; 

97 

exit  (-1) ; 

98 

} 

99 

database  *  argv [1] ; 

100 

relation  ■  argv [2]; 
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120 
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123 
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127 

128 
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datafile  =  file_dat; 
3tr cpy  (wdn , ar gv  [  3 ] )  ; 
strcat (wdn, "/") ; 


collect  () ;  /*  get  attributes  */ 

if  (current)  /*  if  any  attributes  found  V 

{ 

if  (nonascii  &&  flagr) 

{ 

re_map();  /*  change  the  relation  */ 

collect () ;  /*  get  new  attributes  V 

} 

if  (flags) 

{ 

strcpy  (file_s,wdn) ; 

strcat (file_s, relation) ; 

strcat ( f ile_s , " . s " ) ; 

strcpy (file_dat, wdn) ; 

strcat  (file_dat , relation ) ; 

strcat ( f ile_dat , " . dat " ) ; 

if  ((stream  *  f  open  (filers,  "w+") )  =**  NULL) 

{ 

printf ("->ingresid  unable  to  generate  %s\n", 
file_s) ; 

exit (-1) ; 

} 

mapper  () ; 
ingresO  ; 
dbase  ()  ; 
tdata  () ; 
f close  (stream) ; 

} 

exit  (1) ; 

} 

else  exit(0); 

} 

/* 

*  collect  attribute  information  into  array  "attr" 

V 

collect  () 

{ 

printf ("->ingresid:  Collecting  attribute  information  about  %s\nH, 
relation) ; 

last  *  current  ■  width  ■  nonascii  ■  0; 
t#  ingres  database 

##  range  of  a  is  attribute 
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173 

174 

175 

176 

177 

178 

179 
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185 
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187 
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## 

4# 

4# 

## 

#* 

## 

## 

## 

## 


## 

## 


} 


retrieve  (relid=a.attrelid, 
name=a . attname , 
id=a.attid, 
off*a.attoff , 
frmt=a.attfrmt, 
frml=a.attfrml) 

where 

a.attrelid  *  relation 

{ 

cur rent ++; 
last  =  current; 
attrcur  *  &attr  [current] ; 
if  (*name) 

{ 

while  (name  [(strlen  (name) -1)  ]  '  ') 

name [(strlen( name)-!)]  *  *\0'; 

} 

name  [MAXNAME]  -  '\0'; 
strcpy (attrcur ->name, name) ; 
attrcur ->frmt  ■  *frmt; 
attrcur ->frml  ■  frml; 
attrcur ->offset  *  width; 
attrcur ->decimal  *  0; 
width  +•  frml; 

if  (*frmt  !»  'c')  nonascii ++; 

} 

exit 

if  (last >31) 

{ 

printf ("\007\n->ingresid:  Caution  %s  has  ",  relation); 
printf("%d  fields. \n",  last); 

printf  ("->ingresid:  This  exceeds  dBASEII  limits\!\007\n") ; 
exit(-l) ; 

} 


/* 

***************************************************************** 
*  build  a  dBASEII  definition 

***************************************************************** 

V 

abase  () 

{ 

printf  ("->ingresid:  Moving  dBASEII  definition  to  %s\n", 
filers) ; 

fprintf  (stream, ".dbase  %s  %d  \n ", r elation ,w id th ) ; 
for  (current  ■  l;current  <*  last;  currents) 

{ 

attrcur  *  sattr  [current] ; 
origcur  *  &orig  [current] ; 
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fprintf  (stream, "%-10s",attrcur->naine) ; 

202 

if  (origcur->frmt  =  * i *  II 

203 

origcur->frmt  =  ' f ’ ) 

204 

fprintf (stream, "n") ; 

205 

else  fprintf (stream, "%lc",attrcur->fnnt) ; 

206 

fprintf (stream, "%3.3d" , attrcur ->frml) ; 

207 

if  (origcur->frmt  *  ' f  * ) 

208 

fprintf (stream,  "003") ; 

• 

209 

else  fprintf (stream, "%3. 3d", attrcur->decimal) ; 

210 

if  (current  =  last) 

211 

fprintf (stream, "\n") ; 

212 

else  fprintf (stream, "\n") ; 

213 

} 

214 

fprintf  (stream, ".end\n") ; 

215 

} 

216 

217 

/* 

218 

219 

*  build  a  ingres  create/copy  statement 

220 

221 

V 

222 

ingres  () 

223 

{ 

224 

printf  ("-> ingres id:  Moving  INGRES  definition  to  %s\n". 

225 

file  s) ; 

226 

fprintf  (stream, ".ingres  %s  %d  \n", relation, width ) ; 

227 

fprintf (stream, "destroy  %s  \\g\n", relation) ; 

228 

printf  (stream,  "create  %s  (\n" , relation) ; 

229 

for (current  *  1; current  <*  last;  cur rent -h-) 

230 

{ 

231 

attrcur  *  &attr [current] ; 

232 

fprintf (stream, "  %s*%c%d", 

233 

attrcur->name, 

234 

attrcur->frmt. 

235 

attrcur ->frml) ; 

236 

if  (current  —  last) 

237 

fprintf  (stream, "\)\n") ; 

238 

else  fprintf (stream, ",\n") ; 

239 

} 

240 

fprintf (stream, "\\g\n") ; 

241 

242 

fprintf (stream, "copy  %s  (\n", relation ) ; 

243 

for (current  ■  l;current  <»  last;  cur rent ++) 

244 

{ 

• 

245 

attrcur  »  &attr  [current ] ; 

246 

fprintf (stream,"  %s»%c%d". 

247 

attrcur->name. 

248 

attrcur ->frmt. 

249 

attrcur->frml) ; 

250 

if  (current  «  last) 
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fprintf (stream, "\)  fran  \"%s\"\n", datafile) ; 
else  fprintf  (stream,  "An") ; 

} 

fprintf (stream, "\\g\n") ; 
fprintf (stream, ".end\n") ; 


***************************************************************** 

*  output  entire  table  in  bulk  form  to  a  file 

***************************************************************** 

V 

tdata  () 

{ 

FILE  *fin; 
int  i,ii,d,o; 
char  sign; 

char  fbuffer [BUFSIZ*8] ; 

printf  ("->ingresid:  Moving  INGRES  data  to  %s\n", 
filejs) ; 

##  ingres  database 

##  copy  relation  ()  into  datafile 

##  exit 

if  ((fin  ■  f open  (datafile, "r") )  ”  NULL) 

{ 

printf ("\007->ingresid:  Can't  Read  from  %s\n", datafile) ; 
exit(-l) ; 

} 

fprintf  (stream, ".data  %s  %d  \n", relation, width) ; 
for(  ;  { ii  ■  f read (fbuffer,  1,  width  ,  fin))  >  0;  ) 

{ 

fbuffer  [ii]  -  '\0'; 

/*  right  adjust  &  zero  fill  int  and  float  fields  */ 
for  (current  *  l;current  <»  last;  currents) 

{ 

origcur  *  &orig [current ] ; 
if  (origcur->frmt  —  ' i '  1 1 
or  igcur->  fruit  *■  '  f ' ) 

{ 

attrcur  *  &attr  [current ] ; 

i*attrcur->frml ; 

d»attrcur->frml ; 

o»attrcur->of f set ; 

ptrl  »  &fbuffer  [o] ; 

ptr2  ■  &fbuffer[o  +  (i— 1) ] ; 

ptr3  ■  ptr2; 

sign  ■  '\0' ; 

if  (*ptrl  —  ’-') 

( 
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sign  =  *ptrl; 

*ptr  1  =  1 0 ' ; 

} 

while  (i  &&  *ptr2  =  '  ') 

{ 

ptr  2 —  ; 
i—  ? 
d  *  i  ; 

} 

while  (i) 

{ 

if  (*ptr 2  =*'.') 

{ 

attrcur->decimal  ■  d-i  ; 
*ptr2 —  ; 

} 

else  *ptr3 —  =  *ptr2 —  ; 

i—  ? 

} 

vrfule(ptr3  >-  ptrl) 

{ 

*ptr3 —  »  '0' ; 

} 

if  (sign)  *ptrl  *  sign; 


fwrite  (fbuf f er ,  1,  ii,  stream)  ; 

} 

fclose  (fin) ; 

unlink (datafile) ; 

fprintf  (stream,  "\n.end\n" ) ; 


/* 

******★★•*********★*****•!►★•***★•**■***★■*•*★*★★**•***■**★★**★★*•*★★* 

*  output  re_map  instruction  files,  if  present 

*  execute  the  ingres  ".mo"  instructions 

*  change  working  name  of  relation 
***************************************************************** 

V 

mapper  () 

{ 

FILE  *fin; 
int  ii; 

char  fbuffer [BUFSIZ] ; 
char  fname[120]; 

printf ("->ingresid:  Moving  INGRES  rejnapping  information  to  %s\n", 
file  s) ; 
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/*  copy  the  output  mapping  instructions  V 
strcpy  (fname, wdn) ; 
strcat (fname, relation) ; 
strcat  (fname , "  .mo" ) ; 
if  ((fin  *  fopen (fname, "r") )  =  NULL) 
return  (-1) ; 

fprintf (stream, ".mapper  %s  %s.mo  \n", relation, relation ) ; 
for(  ;  (ii  *  fread(fbuffer,  1,  BUFSIZ,  fin))  >  0;  ) 

{ 

fwrite (fbuffer ,  1,  ii,  stream)  ; 

} 

f close (fin) ; 

fprintf  (stream,  ".end\n") ; 

/*  copy  the  input  mapping  instructions  */ 
strcpy  ( fname ,  wdn ) ; 
strcat ( fname , relation ) ; 
strcat ( fname , " .mi  " ) ; 
if  ((fin  *  fopen  (fname,  "r") )  —  NULL) 
return  (-1)  ; 

fprintf  (stream, ".mapper  %s  %s.mi  \n", relation, relation) ; 
for(  ;  (ii  *  fread( fbuffer,  1,  BUFSIZ,  fin))  >  0;  ) 

{ 

fwrite (fbuffer ,  1,  ii,  stream)  ; 

} 

fclose(fin) ; 

fprintf  (stream,  ".end\n")  ; 
return  (1) ; 


/* 

***************************************************************** 

*  build  ingres  re-map  files 

***************************************************************** 

V 

re  map() 

{  “ 

strcpy  (map_temp,  "r_") ; 
strcat (map_temp, relation) ; 
strcpy (map~out,wdn) ; 
strcat  (map jout,map_taip) ; 
strcat  (map~out,  ".mo")  ; 
strcpy (map_in,wdn) ; 
strcat  (map'in ,  map_temp )  ; 
strcat (map~in , " .mi  " ) ; 

if  ((stream  »  fopen  (map  out,"w+") )  —  NULL) 

{ 

printf ("\007->ingresid:  Unable  to  generate  %s\n",map_out) 
return (-1) ; 
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} 

printf ("->ingresid:  Re-mapping  %s  into  %s\n", 
relation, map_temp) ; 

fprintf (stream, "destroy  %s  \\g\n",map_temp) ; 
f printf (stream, "range  of  %s  is  %s  \n", relation, relation) ; 
fprintf  (stream, "retrieve  into  %s  \(\n",map_temp) ; 
for (current  *  l;current  <=  last;  current++) 

{ 

attrcur  *  iattr [current] ; 
if  (attrcur ->frmt  =*■>  'c ' ) 

{ 

fprintf (stream, "  %s=%s.%s", 

attrcur ->name, 
relation , 
attrcur ->name) ; 

} 

else 

{ 

fprintf (stream,"  %s*ascii\(%s.%s\) ", 

attrcur ->name, 
relation , 
attrcur ->name) ; 

} 

if  (current  =—  last) 

fprintf (stream, "\)  \n" ) ; 
else  fprintf (stream,",  \n") ; 

} 

fprintf  (stream, "\\g\n") ; 
f close (stream) ; 

if  ((stream  »  fopen (map  in,"w+") )  »»  NULL) 

{ 

printf (" s007->ingresid  Unable  to  generate  %s\n",map_in); 
return  (-1) ; 

} 

fprintf (stream, "destroy  %s  \\g\n", relation ) ; 
fprintf  (stream,  "range  of  %s  is  %s  \n",map  temp,map_temp) ; 
printf  (stream, "retrieve  into  %s  \ (\n", reTation ) ; 
for (current  ■  1, ’current  <»  last;  current ++) 

{ 

attrcur  *  iattr (current] ; 
if  ( attrcur ->frmt  »  'c') 

( 

fprintf  (stream,"  %s*%s.%s", 

attrcur ->name, 
map_temp, 
attrcur->name) ; 

} 

else 

{ 
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if  (attrcur->frmt  =“  * i ’ ) 

fpr in tf (stream, "  %s=int%d\(%s.  %s\) ", 

attrcur->name, 
attrcur->frml, 
map_tanp, 
attrcur->name) ; 
if  (attrcur->frmt  ' f ' ) 

fprintf (stream, "  %s*float%d\(%s.%s\) ", 

attrcur->name, 
attrcur->frml, 
map_temp, 
attrcur->name) ; 

} 

if  (current  **  last) 

fprintf (stream, "\)  \n") ; 
else  fprintf  (stream, ",  \n"); 

} 

fprintf  (stream, "destroy  %s  \n",map_temp) ; 
fprintf (stream, "\\g\n") ; 
fclose  (stream)  ; 

/*  execute  ".mo"  ingres  instructions  */ 

strcpy ( command , " ingres  -s  " ) ; 

strcat  (command, database) ; 

strcat  (coranand,"  <  ") ; 

strcat  (coranand  ,map_out) ; 

if  (!fork  ()) 

{ 

execl  ("/bin/sh",  "-c",  coranand  ,  0)  ? 

printf ("\p\007->ingresid  Cannot  Execute:  %s\n", coranand) 

return  (-1) ; 

} 

wait(0) ; 

/*  change  working  name  for  re-mapped  relation  */ 

/*  and  save  a  copy  of  the  original  attributes  */ 
relation  »  map_temp; 

for (current  *  l;current  <»  last;  current++) 

{ 

attrcur  ■  sattr  [current] ; 
origcur  ■  &orig [current] ; 
strcpy  (origcur->name,attrcur->name) ; 
origcur->frmt  *  attrcur->frmt; 
origcur->frml  ■  attrcur ->frml; 
origcur->offset  »  attrcur->offset; 

} 


*  END  OP  SOURCE 
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SECTION  2.6 
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1:  /* 

2  •  *★★★★★★★****★★**★★★**■***•*★★★★★**★★★★★★*★★*★★★★★★★★★★**★★***★★ 

3:  *  ingresdi.c  break  <relation>.s  into  its  component  files 

5:  * 

6:  *  PROGRAM  RUNS  ON  VAX-11/780 

7:  * 

8:  *  The  input  file  is: 

9:  *  ->  <relation>.s  stream  conning  from  micro 

10:  * 

11:  *  The  files  created  are: 

12:  * 

13:  *  1:  <database>.DEF  dBASEIl  create  definitions 

14:  *  2:  <da tabasO.DAT  actual  data  file  to  be  used 

15:  *  3:  < database  > . ING  ingres  create/copy  conmand 

16:  *  4:  <database>.MI  ingres  mapper  instructions 

17:  *  note:  <database>.ING  and  <database>.MI  will 

18:  *  be  generated  by  this  program  if  not  present 

19:  *  in  the  input  <relation>.S  file. 

20:  * 

21:  * 

22:  *  SAMPLE  DATA  FILE  INPUT  STREAM 

22:  * 

24:  *  NOTE:  ALL  LINES  ARE  <\n>  delimited.  This  is  very  important 

25:  *  in  the  ".data"  section.  The  data  section  will  be  checked 

26:>  *  for  fully  padded  records  of  <size-nnn>  IPLUS  ONE  NEW  LINE! 

27:  *  THE  ".data"  SECTION  MUST  BE  THE  LAST  SECTION  IN  THE  STREAM. 

28:  * 

29: 

30:  .ingres  clist  30 
31:  create  clist  ( 

32:  code=>c5, 

33:  name*cl5, 

34:  bldg-c5, 

35:  rocm-c5) 

36:  copy  clist  ( 

37:  code*c5, 

38 :  name«cl5 , 

39:  bldg»c5, 

40:  room-c5)  from  "clist.dat" 

41:  .end 

42:  .dbase  clist  30 
43:  code  c  5  0 

44:  name  c  15  0 

45:  bldg  c  5  0 

46:  room  c  5  0 

47:  .end 

48:  .data  clist  30 

49:  8241  Miyashiro  33  0047  <\n> 

50:  8241  Woods,  3ev  33  0067  <\n> 


2-20 


File:  INGRESDI.C 


Size: 


32K 


Page :  2 


51:  8254  Campbell  33  0055  <\n> 

52:  8241  Landa  33  0065  <\n> 

53:  .end 
54: 

55:  * 

57:*  V 

58:  #include  <stdio.h> 

59:  # include  <ctype.h> 

60: 

61:  Idefine  BUFSIZE  512 
62:  Idefine  BYTES_PER_BLOCK  128 
63:  #define  ERROR  -1 
64:  ^define  MAXNAME  10 
65:  #define  MAXATTR  32 
66: 

67:  struct  attrib 
68:  { 

69:  chair  name  [MAXNAME+1  ]  ; 

70:  char  frmt; 

71 :  int  frml ; 

72:  int  decimal; 

73:  int  offset; 

74:  }  at tr [MAXATTR] ,  *attrcur,  orig [MAXATTR] ,  *origcur; 

75: 

76:  int  current,  last,  width,  nonascii; 

77:  int  sjnapper,  s_dbase,  s_data,  s_ingres; 

78:  int  filein,  fileout; 

79:  int  n,  n2; 

80:  int  bytes_read ,  bytes_written; 

81:  int  rec_size,  rec_bytes; 

82:  int  signal_eof ; 

83: 

84:  FILE  *stream,  *fdat,  *fwrk; 

85: 

86:  char  rel[20]; 

87:  char  file_s[120]; 

88:  char  file_map[120] ; 

89:  char  file_ing  [120] ; 

90:  char  file_def [120] ; 

91:  char  file_dat [120] ; 

92:  char  file_wrk [120] ; 

93:  char  wdn(120]; 

94:  char  work [120]; 

95: 

96:  char  buffer [BUFSIZE+10] ; 

97:  char  buffer 2 [BYTES  PER  BLOCK]; 

98:  “  “ 

99:  char  c; 

100:  chau:  *ptr;  /*  input  streaun  buffer  pointer  */ 
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char  *ptr2; 
char  ‘database; 
char  ‘relation; 
char  ‘indexer; 

char  getabyte ( ) ; 
char  ungetbyteO; 

/* 

************************************************.************************* 

‘  main  control  section  is  a  loop  which  scans  the  input  stream 

*  for  ".mapper",  ".dbase",  ".ingres",  or  ".data"  section  headings. 

*  For  each  section  an  appropriate  call  is  made  to 

*  "do_thedata  () "  to  extract  the  data  for  this  section. 

*  At  the  end  of  all  input  gen_ing()  is  called  if  no  ".ingres" 

*  section  was  read.  un_map()  is  called  if  a  ".mapper"  section 

*  was  read. 

ft*****************'****'**  *******  Ik**  *******************************  ******** 

V 

main  (argc,argv) 
int  argc ; 
char  *argv  []  ; 

{ 


/*  output  file  buffer  pointer  ‘/ 

/*  pointer  to  the  database  name  */ 

/*  pointer  to  the  relation  name  */ 

/*  pointer  to  the  index  field  name  ‘/ 


if  (argc  <  4) 

{ 

printf ("Usage: 
printf ("where 
printf (" 
printf (" 


ingresdi  <database>  <relation>  <wdn>\n"); 

<dettabase>  name  of  an  existing  database\n")  ; 
<relation>  name  of  a  relation  in  database \n") ; 
<wdn>  working  directory  name\n"); 


exit  (ERROR)  ; 


} 

database  ■  argv [ 1 ] ; 
relation  =*  argv  [2],* 
strcpy (rel ,argv [2] ) ; 
strcpy (wdn , argv ( 3 ] ) ; 
strcat  (wdn , "/" ) ; 


indexer  *  "NAME"; 


setup  () ; 

while ( (c^getabyte  () )  !*  EOF) 

{ 

if  (c  —  '.') 

{ 

ptr2  ■  work; 

*ptr2  «  '\0 ' ; 
n2  *  25; 

while (n2—  &&  (c-getabyte  () )  && 
c  l*  EDF  && 
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174 
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177 

178 

179 
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} 


{ 


} 

if 

{ 

} 


c  ! =  *\n'  && 
~  i=  •  n 


*ptr2  =  '\0'; 

( ! strcmp (wor  k , "mapper " ) ) 
dojnapper  ()  ; 


if  (! strcmp (work, "dbase") ) 

{ 

s_dbase-H-  • 

do_dbase  () ; 

} 

if  (!strcmp(work,"ingres") ) 

{ 

s_ingres++; 
do_ingres  ()  ; 

} 

if  (! strcmp (work, "data") ) 

{ 

s_data++; 
do  data  () ; 

1 

}  /*end  of  *ptr  =»  ' .  ’  V 
}  /*end  while  getabyte  */ 
collect () ; 

if  (s_dbase  )  gen_ing  () ; 
if  (nonascii)  gen_mi(); 
if  (s  data  &&  sjnapper)  un__map(); 
printr("->ingresdi  ok\n") 


/* 

★♦★★★★♦★★♦♦★★★★★★♦★★★★♦★★★★★★★★★★♦★♦♦★★★★lit******************************* 

*  setup  setup  file  name,  open  and  prime  input  stream 

************************************************************************* 

V 

setup  () 

{ 

strcpy ( f ile_s , wdn ) ; 
strcat ( f ile_s, relation) ; 
strcat (file~s, ".s") ; 


if  ((filein  ■  open  (file  s,0))  “  E2UCR) 

{ 
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229 
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printf ("\n->ingresdi  Can't  Find  %s\007\n" ,file_s) ; 
exit (ERROR) ; 

} 

else 

{ 

n=read (filein,buffer+10,3UFSIZE) ; 
bytes_read  =  n; 
ptr  *  buffer +10? 

} 

} 

/* 

************************************************************************* 

*  do  mapper  set  up  for  mapper  files  from  input  stream 

************************************************************************* 

V 

do  mapper  () 

{ 

char  fil  [60],  *ex; 
char  c; 

/*  flush  white  space  */ 

while ( (c*getabyte ( ) )  &&  c  !=  EOF  &&  c  =*  '  ' )  ; 

unge tbyte  (c) ; 

if  (c  EOF)  return; 

/*  extract  relation  name  */ 
ex  =  fil? 

while ( (c=getabyte {) )  &&  c  !=  EOF  &&  c  l*  '\n'  &&  c  !=»  '  ') 

{ 

if  (isupper(c)) 

*ex++  »  tolower (c) ? 
else  *ex++  *  c  ; 

} 

*ex  *  '\0 ' ; 
strcpy(rel,fil) ? 
if  (c  EOF)  return; 

/*  flush  white  space  */ 

while  ( (c»getabyte {) )  &&  c  !*  EOF  &&  c  **  '  ')  ; 

ungetbyte(c) ; 

if  (c  »  EOF)  return; 

/*  extract  file  name  V 
ex  *  fil; 

while ( (c»getabyte () )  &&  c  1=  EDF  &&  c  !=  '\n'  &&  c  !=  '  ') 

{ 

if  (isupper(c)) 

*ex++  *  tolower (c); 
else  *ex++  »  c  ; 

} 

*ex  ■  '\0 ' ; 

if  (c  “  EOF)  return; 

/*  flush  single  occur ance  of  <space><nl>  V 
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277 
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279 

280 
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if  ( (c=getabyte () )  &&  c  1=  '  ') 
unge tbyte (c)  ; 

if  ( (c=getabyte  {) )  &&  ! (c  =  *\n'  li  c  =  '\r')) 
unge tbyte (c) ; 

if  ( (c=getabyte () )  &&  ! (c  =  '\n'  II  c  =  '\r')) 
unge tbyte (c) ; 
if  (c  =“  EDF)  return; 

/*  create  &  copy  data  to  the  requested  file*/ 
strcpy (file_map,wdn) ; 
strcat ( f ilejnap, f  il ) ; 

printf  ("->ingresdi  building  %s\n" ,f ilejnap ) ; 
do  thedata(file_map,0) ; 

1 

/* 

*************■**•***•*■***★•******■**■*•*•*■***★■*■*■*■*■*■*■*■*■***★***★**************•**•*** 

*  do  ingres  set  up  for  ingres  files  from  input  stream 
★★★*★*★*★★★★*★★★★★★***★★★★★*★★*★*★★**★★★**★**★***★★★★* *★★★★★★★*★*★ ★★★★**★ 

V 

do  ingres () 

{  " 

char  fil [60] ,  *ex; 
char  c; 

/*  flush  white  space  */ 

while ( (c-getabyte () )  &&  c  !=  EOF  &&  c  =*  '  ')  ; 

ungetbyte (c) ; 

if  (c  »*  EXDF)  return; 

/*  extract  relation  name  */ 
ex  »  fil; 

while ( (c=getabyte () )  &&  c  l*  EOF  &&  c  !*  '\n'  &&  c  !*  '  ’) 

{ 

if  (isupper(c)) 

*ex++  *  tolower(c); 
else  *ex-H-  *  c  ; 

} 

*ex  *  '\0 ' ; 
strcpy(rel,fil) ; 
if  (c  —  EDF)  return; 

/*  flush  white  space  */ 

while  ( (c^etabyte  {) )  &&  c  i=»  EDF  &&  c  *■  '  ')  ; 

ungetbyte (c) ; 

if  (c  **  EOF)  return; 

/*  extract  file  size*/ 
ex  ■  fil; 

while ( (c'-xgetabyte () )  &&  c  i*  EDF  &&  c  !*  '\n'  &&  c  i*  '  ')- 

{ 

if  (isupper (c) ) 

*ex-H-  ■  tolcwer  (c) ; 
else  *ex++  =»  c  ; 
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} 

*ex  *  *\0* ; 

if  (c  =  EOF)  return; 

rec_size  =  atoi(fil); 

/*  flush  single  occur ance  of  <space><nl>  */ 
if  ( (c*getabyte ( ) )  &&  c  ! =  '  ' ) 
unge tbyte  (c) ; 

if  ( (c=getaby te  ( ) )  &&  ! (c  »  '\n'  II  c  —  ’\r')) 
ungetbyte (c) ; 

if  ( (c=getabyte  ( ) )  &&  ! (c  =  '\n'  II  c  =  '\r')) 
ungetbyte (c) ; 
if  (c  =*  EOF)  return; 

/*  create  &  copy  data  to  the  requested  file*/ 
strcpy ( f ile_ing , wdn ) ; 
strcat  (file__ing ,  rel )  ; 
strcat { f ile^ing , " . ing " ) ; 

printf  ("->ingresdi  building  %s\n",file_ing) ; 
do_thedata ( f i le_ing ,  0 ) ; 

} 

/* 

********************************-***************************************** 

*  do  dbase  set  up  for  dbase  files  frcm  input  stream 

V 

do  dbase  () 

{  ~ 

char  fil [60] ,  *ex; 
char  c; 

/*  flush  white  space  */ 

while  ( (c»getabyte  () )  &&  c  EOF  &&  c  *  '  ')  ; 

ungetbyte (c) ; 

if  (c  »  EOT)  return; 

/*  extract  relation  name  */ 
ex  »  fil; 

while  ( (c»getabyte () )  &&  c  !*  EDF  &&  c  !*  '\n'  &&  c  !*  '  ') 

{ 

if  (isupper  (c) ) 

*ex++  *  tolower (c) ; 
else  *ex++  ■  c  ; 

} 

*ex  »  '\0 ' ; 
strcpy (rel, fil) ; 
if  (c  —  EOF)  return; 

/*  flush  white  space  V 

while  ( (c»getabyte () )  &&  c  j»  EDF  &&  c  '  ')  ; 

'ungetbyte  (c) ; 

if  (c  —  EOF)  return; 

/*  extract  data  relation  size  */ 


2-26 


File:  INGRESDI.C 


Size: 


32K 


Page :  8 


351, 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 


ex  =  fil; 

while ( (c=getabyte () )  &&  c  !=  EOF  &&  c  !=  '\n‘  Me!*'  ') 

{ 

if  (isupper(c)) 

*ex++  »  tolower(c); 
else  *ex++  =  c  ; 

} 

*ex  =*  '\0 ' ; 

if  (c  =■»  EOF)  return; 

rec_size  =  atoi(fil); 

/*  flush  single  occurance  of  < space ><nl>  */ 
if  ( (c»getabyte () )  &&  c  !»  '  ') 
unge tbyte (c) ; 

if  ( (c=getabyte  () )  &&  i (c  *■  '\n'  II  c  =  '\r')) 
ungetbyte (c) ; 

if  ( (c»getabyte () )  &&  ! (c  *  '\n'  II  c  =*  *\r ' ) ) 
ungetbyte (c) ; 
if  (c  *  EDF)  return; 

/*  create  &  copy  data  to  the  requested  file*/ 

strepy (file_def,wdn) ; 

streat ( f ile_def , rel ) ; 

streat (file_def , ".def M) ; 

printf ("->ingresdi  building  %s\n",file_def) ; 

do_thedata (file_def , 0) ; 

} 

/* 

*  do  data  set  up  for  data  files  frem  input  stream 

************************************************************************* 

V 

do_data() 

{ 

char  fil [60],  *ex; 
char  c; 

/*  flush  white  space  */ 

while  ( (c»getabyte  () )  &&  c  EOT  &&  c  =»  '  ')  ; 

ungetbyte (c) ; 

if  (c  ■■  EOF)  return; 

/*  extract  relation  name  */ 
ex  *  fil; 

while ( (c-getabyte  () )  &&  c  I*  EOF  &&  c  !=  ’\n'  &&  c  !=  '  ') 

{ 

if  (isupper(c)) 

*ex++  ■  tolower(c); 
else  *ex++  *  c  ; 

} 

*ex  »  '\0 ' ; 
strepy (rel, fil) ; 
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if  {c  **  EOF)  return; 

/*  flush  white  space  */ 

while ( (c=getabyte () )  &&  c  !*  EOF  &&  c  =  '  ')  ; 

ungetbyte (c) ; 

if  (c  EOF)  return; 

/*  extract  data  relation  size  */ 
ex  *  fil; 

while ( (c»getabyte () )  &&  c  !  =  EOF  &&  c  I*  '\n'  &&  c  1*  '  ') 

{ 

if  (isupper(c)) 

*ex++  *  tolower (c) ; 
else  *ex++  =  c  ; 

} 

*ex  =  '\0 ' ; 

if  (c  *  EOF)  return; 

rec  size  *  atoi(fil); 

/*  Hush  single  occur ance  of  <space><nl>  */ 
if  ((c»getabyte () )  &&  c  !=  '  ') 
ungetbyte(c) ; 

if  ((c»getabyte() )  &&  !  (c  —  '\n'  II  c  **  '\r')) 
ungetbyte(c) ; 

if  ((c«getabyte() )  &&  ! {c  *  '\n'  1 1  c  =*  '\r')) 
ungetbyte(c) ; 
if  (c  *■  EOF)  return; 

/*  create  &  copy  data  to  the  requested  file*/ 
strcpy  (file_dat,wdn) ; 
strcat ( f ile_dat , rel ) ; 
strcat (f ilejdat , " . dat " ) ; 

printf ("->ingresdi  building  %s  [%d]\n",file_dat,rec_size) ; 
do_thedata (file_dat ,1) ; 

} 

/* 

*  do_thedata  writes  current  input  stream  to  output  buffer 

* 

*  NOTE:  this  routine  is  based  upon  this  format: 

*  see  sample  at  front  of  this  listing. 

* 

*  ingres<space>name<space>size-nnn<space><cr ,lf >" 

*  "<a  stream  of  actual  data  (of  record  size-nnn)>” 

*  "<cr,lf>.end<cr ,lf>" 

* 

*  ALL  DATA  AFTER  THE  ' . ingres 1  LINE  AND  UPTO  THE  '.end' 

*  WILL  BE  WRITTEN  TO  THE  OUTPUT  FILE  NAMED. 

* 

*  If  'datasw '  is  true,  a  standard  CP/M  <cr,lf>  will  be  deleted 

*  after  every  'rec_size'  bytes  of  data  read  in  the  ".data" 

*  section . 

* 

************************************************************************** 
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V 

int 

do_theda ta { f i lename , da  tasw ) 
chat  * filename; 
int  da tasw; 

{ 

char  c; 
int  fd,  n2; 

/*  now  at  start  good  data,  output  file  V 
/*  until  the  ".end"  is  found  (or  EOF)  */ 
if  ((fd  3  cr  eat  (filename,  0644) )  =  ERROR) 

{ 

printf  ("->ingresdi  Can't  Create  %s\007\n" , filename ) ; 
pr in tf ("Assuming  out  of  directory  or  space\n"); 
exit()  ; 

} 

for  (ptr2  =  buffer  2,  n2  =  BYTES_PER_BIOCK ;  n2— ;  ) 

*ptr2++  3  '\0 ' ; 
ptr2  3  buffer 2; 
bytes_written  3  0; 
rec_bytes  3  0; 

while  ( (c-getabyte () )  !3  BOF) 

{ 

if  ((c  33  '\r'  II  c  —  *\n'  II  c  33  ’.')  &&  lookatendO) 

{ 

/*  flush  <cr,lf,".">  V 
while  ( (c-getabyte ( ) )  && 
c  !3  EOF  && 

(c  -  '\r  ’  I  I 
c  —  '\n«  | I 
c  33  ' . 1 ) )  ; 

/*  flush  <"end",cr ,lf >  line  */ 
while ( (c-getabyte ( ) )  && 
c  !=  EOF  && 
c  !»  '\r '  && 
c  !3  '\n')  ; 
ungetbyte(c) ; 
break ; 

} 

else 

{ 

*ptr2++  3  c; 
bytes_wr itten++ ; 

if  (bytes_written  —  B YTES_PER_BLOC K ) 
w7itebuf2 (fd) ; 
if  (da tasw) 

{ 


2-29 


File:  INGRESDI.C 


Size: 


32K 


Page :  11 


501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 
542; 

543 

544 

545 

546 

547 

548 

549 

550 


rec_bytes-H-; 

if  (rec_size  =  rec_bytes) 

{ 

rec_bytes  =  0; 

if  ( (c=getabyte () )  &&  ! (c  =  '\n'  II  c  =  ' \r ’ ) ) 
ungetbyte (c) ; 

else  if  { (c=getabyte () )  &&  ! (c  =*  '\n'  II  c  =*  *\r ' ) ) 
ungetbyte (c) ; 

else  if  ( (c=getabyte ())  &&  ! (c  =*  '\n'  II  c  —  '\r')) 
ungetbyte (c) ; 

else  if  ( (c*getabyte () )  &&  i  (c  =  '\n'  II  c  =  '\r')) 
ungetbyte (c) ; 

} 

} 

} 

} 

if  (bytes_wr i tten )  wr i tebuf  2 ( f d ) ; 
if  (close (fd)  —  ERROR) 

{ 

printf ("->ingresdi  Can't  Close  %s\ An", filename) ? 
exit  ()  ; 

} 


/* 

*★■**★****'******■*'****★★***********■*★*  *★***★■*  it-**-****  ********  *■*★■***•* 

*  generate  ingres  creat  &  copy  specifications  from  file_def 

******************************************************************* 

V 

gen  ing() 

{ 

strcpy (file_ing,wdn) ; 
str cat ( f ile_ing , r el ) ; 
strcat (f ile_ing , " . ing" ) ? 

printf ("->ingresdi  generating  %s\n",file_ing) ; 
if  ((stream  *  f open  (file  ing,"w+"))  —  NULL) 

{ 

printf ("\007Unable  to  generate  %s\n",file_ing); 
return  (-1) ; 

} 

fprintf (stream, "destroy  %s  \\g\n" , rel ) ; 

fprintf (stream, "create  %s  (\n",rel); 

for (current  ■  ljcurrent  <■  last;  current++) 

{ 

attrcur  *  &attr [current] ; 
fprintf (stream, 

"  %s-c%d", 

attrcur ->name, 
attrcur->frml) ; 
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if  (current  =  last) 

fprintf  (stream,  ’’\)\n") ; 
else  fprintf (stream, ",\n") ; 

} 

fprintf  (stream, "\\g\n") ; 

fprintf (stream, "copy  %s  (\n",rel); 

for (current  *  l;current  <=  last;  current-*-*-) 

{ 

attrcur  *  &attr [current] ; 
fprintf (stream, 

"  %s=c%d", 

attrcur ->name, 
attrcur->frml)  ; 
if  (current  =■  last) 

fpr intf (stream, B\)  from  \" %s\"\n" , f ile_dat ) ; 
else  fprintf (stream, ",\n") ; 

} 

fprintf (stream, "\\g\n") ; 
f close (stream) ; 
return (0) ; 


/* 

***************************************************************** 

*  generate  mapping  input  instructions 

***************************************************************** 


V 


char  file  mi  [120] ; 


s_mapper++; 
strcpy ( f ile_mi ,wdn) ; 
strcat (filejni , rel )  ; 
strcat ( filejni , " .mi " ) ; 

printf ("->ingresdi  generating  %s\n", filejni) ; 
if  ((stream  *  f open (filejni, "w+") )  =»  NULL) 

{ 

printf  ("\007Unable  to  generate  %s\n", filejni) ; 
return (-1) ; 

} 

fprintf (stream, "destroy  %s  \\g \n", relation ) ; 
fprintf (stream, "range  of  %s  is  %s  \n",rel,rel); 
fprintf (stream, "retrieve  into  %s  \ (\n", relation ) ; 
for (current  »  l;current  <»  last;  current-H-) 

{ 

attrcur  ■  &attr (current] ; 
if  (attrcur->frmt  —  'c') 

{ 

fprintf (stream, "  %s»%s.%s", 
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attrcur->name, 

rel, 

attrcur->name) ; 

} 

else 

{ 

if  (attrcur->deciiral  =  0) 

{ 

if  (attrcur->frml  <=  6) 

fprintf (stream,"  %s=int2\(%s.%s\)'\ 

attrcur->name, 
rel, 

attrcur->name) ; 

else 

fprintf (stream, "  %s=int4\(%s. %s\) ", 

attrcur->name, 
rel, 

attrcur-'name) ; 

} 

else 

{ 

fprintf  (stream, "  %s=float4\(%s. %s\) ", 

attrcur->name, 
rel, 

attrcur->name) ; 

} 

} 

if  (current  —  last) 

fprintf  (stream, M\)  \n") ; 
else  fpr intf (stream, ",  \n" ) ; 

} 

fprintf (stream, "destroy  %s  \n",rel); 
fprintf (stream, "\\g\n") ; 
fclose  (stream) ; 


/* 

***************************************************************** 

*  collect  attribute  information  into  array  "attr"  frcm  file_def 

V 

collect () 

{ 

char  line  ( 100  ] ; 
char  *ptr ,  *ptr2; 
int  n,  n2; 

last  »  current  »  width  ■  nonascii  ■  0? 
if  ((filein  »  open ( f ile_def ,0) )  —  ERROR) 
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692 

693 

694 

695 

696 

697 

698 

699 

700 


printf ("\n->ingresdi  Can't  Find  %s\007\n",file_def) ; 
return (-1) ; 

} 

else 

{ 

printf  ("->ingresdi  processing  %s\n" ,file_def ) ; 
for (ptr=buffer ,  n2=BUFSIZE+10;  n2 — ;  ) 

*ptr++  *  '\0'; 

n=read (filein, buffer +10, BUFSIZE) ; 
bytes_read  =  n  ; 
if  ( !bytes_read) 

{ 

for (ptr=buffer ,  n2=BUFSIZE+10;  n2 — ;  ) 

*ptr++  =  '\0'; 

} 

ptr  =  buffer +10; 
n  *  bytes  read; 

} 

while  (*ptr ) 

{ 

/♦get  a  line  from  filejdef*/ 

for (n2*0,ptr2»line,*ptr2  *  '\0';  c  *  *ptr++  ;  ) 

{ 

if  (c  =—  '\n ' )  c  *  '\0 ' ; 
if  (c  !■  '\r') 

{ 

if  (isqpper  (c)) 

*ptr 2++  »  tolower(c); 
else  *ptr2++  =  c; 

} 

*ptr2  »  '\0 ' ; 

n—  ; 
n2++  ; 
if  (n2  >  20) 

{ 

printf ("\n->ingresdi  CAN'T  PROCESS  %s\n", filejdef) 
exit (ERROR) ; 

} 

if  (in) 

{ 

for (ptr*buffer ,  n2*BUFSIZE+10;  n2 — ;  ) 

*ptr++  *  '\0' ; 

n*read (filein, buffer+10, BUFSIZE) ; 
bytes_read  *  n  ; 
if  ( ! bytes  read ) 

{ 

for (ptr*buffer ,  n2*BUFSIZE+10;  n2 — ;  ) 

*ptr++  *  '\0' ; 

} 

ptr  »  buffer+10; 
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n  =  bytes_read; 

} 

if  (Ic)  break;  /*end  of  line*/ 

} 

if  (!*line)  continue;  /*null  line*/ 

/*get  each  field  into  the  structure*/ 

current ++; 

last  =  current; 

attrcur  *  &attr [current] ; 

line  [17]  =  '\0\- 

ptr2=line+14;  /*  3  digit  decimal  */ 
attrcur ->decimal  =  atoi(ptr2); 
line [14]  *  '\0'; 

ptr2=line+ll;  /*  3  digit  length  */ 

attrcur ->frml  =  atoi(ptr2); 

attrcur ->off set  =  width; 

width  +■  attrcur->frml; 

ptr2*line+10;  /*  1  character  format  */ 

attrcur->frmt  *  *ptr2; 

if  ( ! ( *ptr 2  =»  *c'  II  *ptr2  =»  *C * ) )  nonascii++; 
*ptr2*'\0';  /*  stopper  for  end  of  name  */ 

if  (*line) 

{ 

while (line [(strlen (line )-l)]  —  '  * ) 

line [ (strlaa(line) -1) ]  *  '\0'; 

i 

strcpy  (attr cur ^name, line)  ; 

}  /*end  of  while  not  EOF  */ 
close  (filein) ; 


/* 

***★***★★★■*********★*★*★**★******■**★★■*************★*★***★★*******★******* 

*  un_map  reforms  data  in  floating  point  /  integer  fields. 

************************************************************************* 

V 

un  map  () 

{  ~ 

int  i,ii,drdd,dn,o; 
int  n,nn; 

char  fbuffer [BUFSIZ*8] ; 
char  *ptrl,  *prt2,  *ptr3; 

if  ((fdat  *  fopen{file  datf"r"))  —  NULL) 

{ 

printf  ("\007->ingresdi  Can't  Read  from  %s\n" ,file_dat) ; 
exit (ERROR) ; 

} 

printf  ("->ingresdi  processing  %s  [ %d]\n",file_dat, width ) ; 
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strcpy (file_wrk,wdn) ; 

strcat(file_wrk,rel) ; 

strcat (file_wrk, ".wrk") ; 

if  ((fwrk  =  fopen(file  wrk,”w+"))  =  NULL) 

{ 

printf  ("->ingresdi  Can't  write  to  %s\n\007",file_wrk) ; 
exit (ERROR); 

} 

printf ("->ingresdi  mapping  into  %s  [%d]\n" ,file_wrk, width) ; 

for(  ;  (ii  =  fread (fbuffer ,  1,  width  ,  fdat))  >  0;  ) 

{ 

/♦DEBUG  printf ("=>%s<=[%d]\n", fbuffer ,ii) ;*/ 
fbuffer [ii]  =  '\0'; 

/*  left  adjust  &  un-zero  fill  int  and  float  fields  */ 
for (current  =  1;  current  <=  last;  current++) 

{ 

attrcur  *  &attr  [current] ; 
if  (attrcur->frmt  =*  'n'  II 
attrcur ->frmt  *»  'N') 

{ 

i=attrcur->frml ; 
d=attrcur->decimal ; 
o=attrcur->of f set ; 
n=o;  /*  beg  */ 

nn=n  +  ( i— 1 ) ;  /*  end  */ 

/***test  for  decimal  point  in  data***/ 
for  (dn  *  dd  *  0  ;  nn  >*  n  ;  nn —  ) 

{ 

if  (fbuffer [nn]  =*’.') 

{ 

nn  *  0; 
dn  *  1; 

} 

else  dd++  ; 

} 

/***if  decimal  specified  in  data  ***/ 
/***only  left  adjust  the  field  ***/ 
if  (dn) 

{ 

i=attrcur->frml; 
d*attrcur->decimal ; 
o**attrcur->of  f  set ; 
n*o;  /*  beg  */ 

nn*n  +  (i-1) ;  /*  end  */ 

while  ((nn  >*  n)  &&  (fbuffer  [n]  «  '  ')) 
n++  ; 
while (nn  >■  n) 

{ 
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fbuffer[o]  *  fbuffer[n]  ; 
o++  ; 
n++  ; 

} 

while  (nn  >*  o) 

{ 

fbuffer [o]  -  ' 

0++  ; 

} 

}  /*end  decimal  in  data*/ 

/***if  no  decimal  in  data***/ 
/***revise  the  data  accordingly***/ 
/***use  implied  decimal  position***/ 
if  (idn) 

{ 

i=attrcur->frml ; 
d*attrcur->decimal ? 
o*attrcur->of fset ; 
n*o;  /*  beg  */ 

nn=n  +  ( i— 1) ;  /*  end  */ 

if  (fbuffer [n]  = 

{ 

n++  ; 

0++  ; 

} 

while  ((nn  >*  n)  && 

( (fbuffer  [n]  —  '0')  |( 
(fbuffer [n]  '  '))  ) 

{ 

if  (d  &&  (n  =»  (nn-d) ) ) 

{ 

fbuffer  [o]  *  ' . ' ; 

O-H-  ; 

n++  ; 
break ; 

} 

else  n++  ; 

} 

while  (nn  >*  n) 

{ 

fbuffer  [o]  *  fbuffer  [n]  ; 

0++  ; 

if  (d  &&  (n  —  (nn-d))) 

{ 

fbuffer [o  J  *  ’ . ' ; 

0++  ; 

n-H-  • 

} 

else  n++  ; 
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while  (nn  >=  o) 

{ 

fbuffer[o]  =  ' 

O-H-  ; 

} 

}  /*end  no  decimal  in  data*/ 

}  /*end  of  each  nemeric  field*/ 

}  /*  end  of  all  fields  */ 
fwrite (fbuffer ,  1,  ii,  fwrk)  ; 

/♦DEBUG  printf  ("=>%sO[%d]\n\n\ fbuffer, ii) ;  */ 

} 

f close (fdat) ; 
f close (fwrk) ; 
if  ( unlink ( f ile_dat ) ) 

printf (M->ingresdi  Can't  unlink  %s\007\n",file_dat) ; 
if  (link (file  wrk,file_dat) ) 

print? ("->ingresdi  Can't  rename  %s\007\n" ,file  wrk) ; 

} 

/* 

**************************************************************************** 

*  lookatend  looks  for  ' . end '  statement 

************************************************************************* 

V 

int 

lookatend  () 

{ 

char  work  [20]  ; 
char  *wk; 
int  w; 

for  (wk  *  work,w  ■  U;  w —  ;  ) 

*wk++  *  '\0 '  ; 

for  (wk  *  work,w  *  10;  w —  ;  ) 

*wk++  *  getabyte ()  ; 
for  (w  *  10 ;  w —  ;  ) 

{ 

wk —  ; 

unge tbyte (*wk)  ; 

} 

wk  *  work; 

while ( (*wk  *■  '\r ')  II 
(*wk  —  '\n  ’ )  II 
(*wk  —  '.')) 

wk++; 

if  (*wk++  »  'e'  && 

*wk++  —  'n'  && 

*vk++  —  'd'  && 

(*wk  —  '\r '  II  *wk  —  '\n ' ) ) 
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return (1) ; 
else  return  (0); 

} 

/* 

************************************************************************* 

*  getabyte  returns  next  byte  from  file  buffer 

kkititititirkkkkitkkkitkititkkkititititkkkkitkk'kititititkkititititkitititititititkkkkkkitkkkkkkk'kkitkitkk 

V 

char 

getabyte ( ) 

{ 

char  c; 

if  ( !bytes_read) 

{ 

n*read  (filein,  buffer +10,  BLJFSIZE) ; 
bytes_read  =  n; 
ptr  *  buffer +10; 

} 

if  (! bytes  read) 

{ 

signal_eof ++ ; 
return (EOF) ; 

} 

bytes_read — ; 
c  =  *ptr++; 
return (c) ; 

} 

/* 

************************************************************************* 

*  ungetbyte  puts  a  byte  back  into  the  file  buffer 

************************************************************************* 

V 

char 

ungetbyte (c) 
char  c; 

{ 

bytes_read++; 

ptr—; 

*ptr  »  c; 
return (c) ; 

} 

/* 

************************************************************************* 

*  writebuf2  writes  output  buffer2  and  preps  for  next  block 
************************************************************************* 

V 

int 

writebuf 2(fd) 
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951:  int  fd; 

952:  { 

953:  int  n2; 

954: 

955:  if  (write (fd,buffer2,bytes_written)  !=  bvtes  written) 

956:  { 

957:  printf ("\n\007->ingresdi  Write  Error\n") ; 

958:  exit (ERROR); 

959:  } 

960:  for  (ptr 2  »  buffer 2,  n2  *  BYTES_PER  BLOCK;  n2— ;  ) 

961:  *ptr2++  =  '\0'; 

962:  ptr 2  =  buffer 2; 

963:  bytes  written  =  0; 

964:  } 

965:  /* 

966 ;  ■fr**************************************************************** 

967:  *  END  OF  SOURCE 

%3 ;  ***************************************************************** 

969:  V 


Characters :  32282 
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File:  INGRESUL.C  Size:  11K  Page 


1: 

2 • 

3:  *  ingresul.c  will  combine  files  into  a  single  stream  for 

4:  *  upload  to  INGRES  on  the  VAX 

6:  * 

7:  *  PROGRAMS  RUNS  CN  CP/M  MICROCOMPUTER 

8:  * 

9:  *  The  input  files  used  are: 

10:  * 

11:  *  1:  < relation >. ING  ingres  create/copy  comnand 

12:  *  2:  <relation>.MI  ingres  mapper  input  comnand 

13:  *  3:  <relation>.MO  ingres  mapper  output  command 

14:  *  4:  <relation>.DEF  dBASEII  create  definitions 

15:  *  5:  <relation>.DAT  actual  data  file  to  be  used 

16:  * 

17:  *  The  output  file  is: 

18:  * 

19:  *  ->  <relation>.S  the  output  file  created 

20:  * 

21:  *  If  everything  is  ok,  the  input  files  will  be  deleted. 

22:  * 

23:  * 

24:  *  NOTE:  THIS  CODE  WAS  WRITTEN  AND  TESTED  FOR  BDS-C  vl.50 

25:  *  THE  OUTPUT  FILES  ARE  FORMATTED  FOR  INPUT  TO 

26:  *  UNIX  VERSION  OF  RTI  INGRES  vl.2 

27:  * 

28:  *  SAMPLE  OUTPUT  STREAM: 

29: 

30:  .ingres  clist  30 
31:  create  clist  ( 

32:  code™c5, 

33:  name-cl5, 

34:  bldg»c5, 

35:  roan*c5) 

36:  copy  clist  ( 

37:  code«c5, 

38:  name»cl5, 

39:  bldg»c5, 

40:  rooro»c5)  from  "clist.dat" 

41:  .end 

42:  .dbase  clist  30 
43:  code  c  5  0 

44:  name  c  15  0 

45:  bldg  c  5  0 

46:  roam  c  5  0 

47:  .end 

48:  .data  clist  30 

49:  8241  Miyashiro  33  0047 

50:  8241  Woods,  Bev  33  0067 
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8254  Campbell 

33 

0055 

52: 

8241  Landa 

33 

0065 

53 :  .  end 
54:  * 

55 i 

56:  V 
57: 

58:  #include  <bdscio.h> 

59:  #include  <hardware.h> 

60: 

61:  ^define  ERROR  -1 

62:  #define  BUFSI2E  512 

63:  #define  BYTES_PER_BLOCK  128 

64:  ^define  BLOCKS  4 

65:  #define  MAXA3TR  32 

66:  «de£ine  MAXNAME  10 


67: 

68: 

69: 

70: 

71: 

72: 

73: 

74: 

75: 

76: 

77: 

78: 

79: 

80: 

81: 

82: 

83: 

84: 

85: 

86: 

87: 

88: 

89: 

90: 

91: 

92: 

93: 

94: 

95: 

96: 

97: 

98: 

99: 

100: 


struct  attrib 

{ 

char  name [MAXNAME +1] ; 
char  frmt; 
int  frml ; 
int  decimal ; 
int  offset ; 

}  attr [MAXATTR] ,  *attrcur ; 

int  current,  last,  width,  nonascii; 
int  s_dbase,  s_data,  s_ingres,  s jnapper ; 

int  filein,  fileout; 
int  n,  n2; 

int  bytes_read ,  bytes_written; 
int  rec_sTze,  rec_bytes; 
int  signaljeof; 


char  work  [30] ; 

char  file__s[20]; 

char  file_ing [20] ; 

char  file~def [20] ; 

char  filejdat  [20] ; 

char  £ile~and [20] ; 

char  filejno[20]; 

char  filejni[20]; 

char  buffer [BUFSIZE] ; 

char  buffer  2  [BYTES_PER_BLOCK]  ; 


char  c; 
char  *ptr ; 
char  *ptr 2; 
char  *database; 


/*  input  stream  buffer  pointer  */ 
/*  output  file  buffer  pointer  V 
/*  pointer  to  the  database  name  */ 
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char  "relation;  /*  pointer  to  the  relation  name  V 

char  "indexer;  /*  pointer  to  the  index  field  name  */ 

char  getabyteO; 

/* 

*  MAIN  CONTROL  SECTION 

V 

main  (argc,argv) 
int  argc; 
char  "argv [] ; 

{ 

if  (argc  !*  3) 

{ 

printf ("Usage:  ingresul  <database>  <relation>  \n"); 
printf ("where  <database>  name  of  an  existing  database\n") ; 

printf  ("  <relation>  name  of  a  relation  in  database \n") 

exit (-1) ; 

} 

database  »  argv  [1] ; 
relation  =»  argv [2]; 
indexer  *  "NAME"; 

printf ("-> ingresul  starting\n") ; 
setup  0 ; 
collect  () ; 

printf (*-> ingresul  building  %s\n",file_s) ; 
opener () ; 

if  (do_thedata(file_def,l)  !*  ERROR)  s_dbase++; 
if  (do_thedata (file_ing, 2)  !=>  ERROR)  s_ingres+-t-; 
if  (do__thedata  ( f ile_mi ,  4  )  !*  ERROR)  sjnapper-H-; 
if  (do~thedata ( f ile_mo , 4  )  j*  ERROR)  s_mapper++; 
if  (do_thedata (file_dat ,3)  !*  ERROR)  s_data++; 
if  (bytes_written)  writebuf2 (fileout) ; 
if  (close  (fileout)  ERROR) 

{ 

printf  ("-> ingresul  Can't  Close  %s\An",file_s) ; 
exit (ERROR) ; 

} 

else 

{ 

if  (is  dbase  1 1  is  data) 

{ 

printf  ("\007Not  enough  information  to  complete  %s\n", 
file_s) ? 
unlink (file_s) ; 
exit (ERROR) ; 
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} 

else 

{ 

if  (s_dbase)  unlink (file_def) ; 
if  (s_data)  unlink (file_dat) ; 
if  (s_ingres)  unlink  (file_ing) ; 
if  (s_mapper)  unlink (file_mi) ; 
if  (sjnapper)  unlink  (filejno) ; 
printf ("->ingresul  ok\n") ; 


/* 

**************************** 

*  do_thedata  writes  current  file  to  output  buffer 

★  ★  ★  ★  ★  ★  ★  it  ★  ★  ★  ★  ★  *  ★  ★  *  it  ★  ★  ★  ★  ★  ★  ★  ★  ★  ★  ★  ★  ★  ★ it  ★  ★  ★  it  ★  ★  ★  ★  ★  it  it  ★  ★  ★  ★★  ★' it  ★  ★  ★  ★  ★  *  ★  ★  ★  ★  ★  ★  ★  ★  it  ★  ★  ★  ★  ★  ★  ★  ★ 

V 

int 

do_thedata (filename, datasw) 
char  * filename; 
int  datasw; 

{ 

int  fd,  n,  n2; 
char  *hdr ; 

switch (datasw) 

{ 

case  1  :  hdr  *  ".dbase";  break; 
case  2  :  hdr  ■  ".ingres";  break; 
case  3  :  hdr  *  ".data";  break; 
case  4  :  hdr  ■  ".mapper";  break; 
default:  hdr  *  ""; 

} 

if  ((filein  *  open  (filename,  0) )  —  ERROR) 

{ 

printf  (”->ingresul  not  using  %s\n", filename) ; 
return  (ERROR) ; 

} 

else 

{ 

printf  ("->ingresul  reading  %s\n", filename) ; 
puthdr (hdr, filename, datasw) ; 
n«read (filein, buffer ,BLOCKS) ; 
bytes_read  -  (n  *  BYTES_PER_BLOCK)  ; 
ptr  *  buffer; 

} 

/*  correction  for  leading  <cr,lf>  if  file  originated 
with  dBASE  II.  */ 

if  ((datasw  —111  datasw  —  3)  && 
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(<*ptr  =—  '\r ' )  &&  (* (ptr+1)  =  '\n ' ) ) ) 

{ 

ptr  a  ptr+2; 

bytes  read  =  bytes  read  -  2; 

} 

while ( (c»getabyte () )  &&  c  i*  CPMEOF) 

{ 

*ptr2++  »  c; 
bytesjwr itten++ ; 

if  (bytes_written  —  BYTES_PER_BIOCK) 
writebuf2(fileout) ; 

} 

putend  () ; 

} 

/* 

************************************************************************* 

*  setup  setup  file  names,  open  and  prime  output  stream 

*##*4  **************************  ft*  ********  ************  ******************** 

V 

int 

setup  () 

{ 

strcpy (file_s, relation) ; 
strcat ( f ile_s , " .S " ) ; 
strcpy (f ile_ing , relation ) ; 
strcat (file_ing, " . ING") ; 
strcpy  (file~def, relation ) / 
strcat(file_def,".DEF") ; 
strcpy  (f ile_dat , relation ) ; 
strcat (file_dat, " .DAT") ; 
strcpy ( f ile jni ,  relation ) ; 
strcat (filejni,  ".MI  ") ; 
strcpy (filejno ,  relation ) ? 
strcat (file  mo,  ".MD  ") ; 

} 

/* 

************************************************************************* 

*  opener  open  and  prime  output  stream 

*************************************************************„*********** 

V 

int 

opener () 

{ 

if  ((fileout  »  creat(file  s))  «  ERROR) 

{ 

printf  ("\nCan't  Create  %s\007\n",file_s) ; 
exit (ERROR) ; 

} 
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else 

{ 

for  (ptr2  *  buffer 2,  n2  =  BYTES_PER_3LACX ;  n2— ;  ) 
*ptr2++  =  CPMEOF; 
ptr2  =  buffer 2; 
bytesjwr itten  =  0; 

} 


/* 

*  puthdr  writes  a  correct  header  to  the  output  file  stream 

•kit  it  it  it  it  irk  if  if  irk  it  it  if  it  it  if  if  irk  it  irk  it  it  it  it  irk  irk  it  it  it  it  it  it  irk  irk  it  it  irk  it  it  irk  irk  Hit  it  irk  nit  it  it  it -kit  kkkkkkkirk 


V 

int 

puthdr (hdr, filename, datasw) 
char  *hdr ; 
char  *filename; 
int  datasw; 

{ 

if  (nonascii) 

{ 


} 


if  (datasw  **  4) 

sprintf  (buffer ,"%s  r_%s  r_%s  \r \n", hdr, relation, f ilename ) ; 
else  sprintf (buffer, "%s  r  %s  %d  \r \n", hdr, relation, width ) ; 

} 

else 


( 

if  (datasw  =  4) 

sprintf  (buffer ,"%s  %s  %s  \r\n",hdr , relation, filename ) ; 
else  sprintf (buffer, "%s  %s  %d  \r \n", hdr, relation, width ) ; 

} 

bytes_read  *  strlen  (buffer ) ; 
ptr  =«  buffer; 
while (bytes  read — ) 

{ 


if  (isupper  (*ptr ) ) 

*ptr2-H-  »  tolower  (*ptr++) ; 
else  *ptr2++  *  *ptr++; 
bytesjwr i tten ++ ; 

if  (bytesjwr  i  tten  —  3YTES_PER_BLOCK) 
writebuf2 (fileout) ; 


/* 

*•*  •****W**************1»*'*W**'*********'*  ■*★***★**★****★*■*****★★**********★•*** 

*  putend  writes  a  correct  .end  to  the  output  file  stream 

kitifitltititititititititititititititititititititititititititirkititirkkirkititititititkkkkitkkititkkkirkkkkitkkkkkitkitk 


V 
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int 

putend ( ) 

{ 

sprintf  (buffer ,".end\r\n") ; 
bytes_read  =  strlen (buffer ) ; 
ptr  =  buffer; 
while (bytta_read — ) 

{ 

*ptr 2++  =  *ptr++; 
by tes_wr i tten  -h-  ; 

if  (bytesjwritten  —  BYTES_PER_3LDCK ) 
writebuf2(fileout) ; 

} 

} 

/* 

***************************************************************** 

*  collect  attribute  information  into  array  "attr" 

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★♦★★★★★★★★★★★★★★★★★★★★★★★★★★★★Hr***** 

V 

int 

collect  () 

{ 

char  line  [100] ; 
char  *ptr ,  *ptr2; 
int  n,  n2; 

last  *  current  »  width  *  nonascii  *  0; 
if  ((filein  »  open  (file  def,0))  *■  ERROR) 

{ 

printf  ("\n->ingresul  Can't  Find  %s\007\n",file_def ) ; 
exit (ERROR) ; 

} 

else 

{ 

printf ("->ingresul  processing  %s\n",file_def ) ; 
n»read (filein, buffer , BLOCKS) ; 
bytes_read  -  (n  *  BYTES_PER_BIOCK) ; 
if  ( (bytes  read) 

{ 

for  (ptr -buffer,  n2*BYTES_PERJ3LOCK ;  n2— ;  ) 

*ptr++  *  CPMEOF;  ~ 

} 

ptr  *  buffer; 
n  *  bytes  read; 

} 

while (*ptr  l-  CPMEOF) 

{ 

/*get  a  line  from  file  def  (character  cannot  be  null  or  eof)  V 
for (ptr 2-line, n2«100;nT — ;*ptr2++  ■  *\0 ' )  ; 
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for (n2=0,ptr2=line  ;  c  =  *ptr++  ,  c  !=  CPMEOF  ?  ) 

{ 

if  (c  =  '\n')  c  =  '\0'? 
if  (c  !=  '\r')  *ptr2++  =  c; 
n —  ; 

n2++  ; 
if  (n2  >  20) 

{ 

printf ("\7->ingresul  CAN'T  PROCESS  %s\n" ,file_def ) ; 
exit (ERROR) ; 

} 

if  ( In) 

{ 

n=read  (filein, buffer , BLOCKS)  ; 
bytes_read  =  (n  *  BYTES_PER_BLOCK)  ; 
if  (! bytes  read) 

{ 

for (ptr=buffer ,  n  2=8  YTES_PER_BLOCK ;  n2 — ;  ) 

*ptr++  =  CPMEOF? 

} 

ptr  =  buffer; 
n  =  bytes_read; 

} 

if  (Ic)  break?  /*end  of  line*/ 

} 

/♦DEBUG  printf  ("»%s«  Id  %d\n",line,n,n2) ;  */ 
if  (!*line)  continue;  /*null  line*/ 

/♦get  each  field  into  the  structure*/ 

current ++; 

last  =  current; 

attrcur  ■  sattr [current] ; 

line  [17]  =  *\0' ; 

ptr2»line+14;  /*  3  digit  decimal  */ 
attrcur ->decimal  *  atoi(ptr2); 
line [14]  =  '\0'; 

ptr2*line+ll?  /*  3  digit  length  */ 

attrcur ->frml  *  atoi(ptr2)? 

attrcur ->offset  *  width? 

width  +«  attrcur->frml; 

ptr 2=line+10;  /*  1  character  format  */ 

attrcur ->frmt  *  *ptr 2; 

if  (!(*ptr2  =»  'c'  II  *ptr2  —  'C'))  nonascii-H-; 

*ptr2=,\0';  /*  stopper  for  end  of  name  */ 

if  (*line) 

{ 

while  (line  [  (strlen (line) -1) ]  — 1  '  ') 

line [(strlen (line) -1)]  =  '\0'; 

} 

3trcpy  (attrcur ->name, line) ; 
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}  /*end  of  while  not  CPMEOF  */ 
close (filein) ; 

} 

/* 

*  getabyte  returns  next  byte  from  file  buffer 

V 

char 

getabyte () 

{ 

char  c; 

if  (ibytes_read) 

{ 

n=*read  (filein, buffer , BLOCKS) ; 
bytes_read  *  (n  *  BYTES_?ER_BLGCX)  ; 
ptr  =  buffer; 

} 

if  ( ! bytes_read ) 

{ 

signal_eof++; 
returnTCPMEOF) ; 

} 

bytesjcead — ; 
c  *  *ptr++; 
return (c) ; 

} 

/* 

**★■*******★*********'*********★************★*■******■***★★*■***********★*★**★ 

*  \'ritebuf2  writes  output  buffer 2  and  preps  for  next  block 

V 

int 

writebuf2(fd) 
int  fd; 

{ 

int  n2; 

if  (write (fd, buffer 2,1)  i»  1) 

{ 

printf ("\n->ingresul  Write  Error:  %d\n",tell (fd) ) ; 
puts (errmsg (errno () ) ) ; 
exit()  ? 

} 

for  (ptr 2  -  buffer 2,  n2  »  BYTES_PER_BLOCK;  n2— ;  ) 

*ptr2-H-  »  CPMEOF; 
ptr 2  »  buffer  2; 
bytes_written  *  0; 
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451:  } 

452:  /* 

453 :  ★★■a*******************'******'*******'******'************************ 

454:  *  END  OF  SOURCE 

455 :  a****************************'***************'****************'***'** 

456:  V 

Characters:  10765 
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SECTION  2.8 


File:  3: INGRESDB.C  Size:  17K 


Page 


*  ingresdb.c  will  break  out  the  job  stream  created  by 

*  getingdat  on  the  VAX  into  4  files: 

* 

*  PROGRAM  RUNS  CN  CP/M  MICROCOMPUTER 

* 

*  Hie  input  file  is  <relation>.S  stream  downloaded  from 

*  INGRES  on  VAX 

* 

*  The  files  produced  are: 

*  1:  <relation>.ING  ingres  create/copy  command 

*  2:  <relation>.MI  ingres  re-mapping  instructions 

*  3:  <relation>.DEF  dBASEII  create  definitions 

*  4:  <relation>.DAT  actual  data  file  to  be  used 

*  5:  INGRES.CMD  GLOBAL  module  to  bootstrap  dbase 

* 

*  NOTE:  THIS  CODE  WAS  WRITTEN  AND  TESTED  FOR  BDS-C  "1.50 

*  THE  OUTPUT  FILES  ARE  FORMATTED  FOR  INPUT  TO 

*  dBASEII  v2.3B 

* 

*  SAMPLE  DATA  FILE  INPUT  STREAM 


.ingres  clist  30 
create  clist  ( 
code*c5, 
name»cl5, 
bldg=»c5, 
roan«c5) 
copy  clist  ( 
code*c5, 
name*cl5 , 
bldg=*c5 , 

roam^cS)  from  "clist.dat" 

.end 

.dbase  clist  30 
code  c  5  0 

name  c  15  0 

bldg  c  5  0 

room  c  5  0 

.end 

.data  clist  30 


8241  Miyashiro 

33 

0047 

8241  Woods,  Bev 

33 

0067 

8254  Campbell 

33 

0055 

8241  Landa 

33 

0065 

.end 
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51:  * 

52: 

53:  */ 

54:  *include  <bdscio.h> 

55:  # include  <hardware.h> 

56: 

57:  #define  BUFSI2E  512 
#define  BYTES_PER_BLOCK  128 
58:  #define  BLOCKS  4 

59:  ^define  MAXNAME  10 

60:  #define  MAXA2TR  32 

61: 

62:  struct  attrib 
63:  { 

64:  char  name  [MAXNAME +1] ; 

65:  char  fruit; 

66 :  int  frml ; 

67 :  }  attr [MAXATTR] ,  *attrcur ; 

68: 

69:  int  current,  last,  width,  nonascii; 

70:  int  s  dbase,  s  data,  s  ingres,  s  mapper; 

71: 

72:  int  filein,  fileout; 

73:  int  n,  n2; 

74:  int  bytes  read,  bytes_written; 

75:  int  recjsTze,  rec_bytes; 

76:  int  signal_eof; 

77: 

78:  char  work  [30]  ; 

79:  char  rel[20]; 

80:  char  file_s[20]; 

81:  char  file_ing  [20] ; 

82:  char  f  ile_def  [  20  ] ; 

83 :  char  f ile_dat [20] ; 

84:  char  file_map[20] ; 

85:  char  file_omd  [20] ; 

86:  char  buffer  [BCJFSIZE+10]  ; 

87:  char  buffer 2 [BYTES_PER  BLOCK]; 

88: 

89:  char  c; 

90:  char  *ptr;  /*  input  stream  buffer  pointer  */ 

91:  char  *ptr2;  /*  output  file  buffer  pointer  */ 

92:  char  ^database;  /*  pointer  to  the  database  name  V 

93:  char  *relation;  /*  pointer  to  the  relation  name  */ 

94:  char  *datafile;  /*  pointer  to  the  datafile  name  V 

95:  char  * indexer;  /*  pointer  to  the  index  field  name  */ 

96: 

97 :  char  getabyte  ( ) ; 

98:  /* 

99;  ************************************************************************* 

100:  *  main  control  section  is  a  loop  which  scans  the  input  stream 
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*  for  ".dbase",  ".ingres",  or  '•.data”  section  headings. 

*  For  each  section  an  appropriate  call  is  made  to 

*  "do_thedata ( ) "  to  extract  the  data  for  this  section. 

*  At  the  end  of  the  input  stream  "do  global ()"  is  called. 

********************** *********** ********7*************  ******* *********** 

V 

main  (argc, argv) 
argc; 

char  *argv  [] ; 

{ 


if  (argc  >4  I i  argc  <  3) 

{ 

pr in tf ("Usage:  ingresdb  <database>  <relation>  [  index -name ] \n" ) ; 
printf ("where  <database>  name  of  an  existing  database\n") ; 

printf("  <relation>  name  of  a  relation  in  database \n") ; 

printf ("  [index-name]  field  to  be  used  for  indexing\n") ; 

exit  (-1) ; 

} 

database  *  argv  [1] ; 
relation  *  argv [2]; 
strcpy (rel ,argv [2] ) ; 
if  (argc  »■  4) 

indexer  *  argv  [3 j; 
else  indexer  »  " 
setup  ()  ; 

while  ( ( c^etabyte  ())  l  *  CPMEOF ) 

{ 

if  (c  —  ' . ' ) 

{ 

ptr2  *  work; 

*ptr2  *  '\0' ; 
n2  *  25; 

while (n2 —  &&  (c=getabyte () )  && 
c  !»  CPMEOF  && 
c  1*  '\n'  && 
c  !*  '  ’) 

{ 

*ptr 2++  *  c; 

*ptr2  »  '\0'; 

} 

if  (!stranp(workf "mapper") ) 

{ 

s_mapper++; 
do  mapper ( ) ; 

} 


if  ( Istrcmp (work, "dbase" ) ) 

{ 

s_dbase++ ; 
do  dbase  () ; 
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} 

if  (!strcmp(work, "ingres") ) 

{ 

s_ingres-H-; 
do  ingres  () ; 
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if  ( istrcmp (work, "data”) ) 

{ 

s_data-H-? 
do  data  ( ) ; 

} 

}  /*end  of  *ptr  =  ' . '  V 
}  /*end  while  getabyte  */ 

if  (is  dbase) 

{ 

printf ("\007Can 't  boot  dbase  because  %s  ",file_s); 
printf("has  no  data  for  %s\n",file  def); 

} 

if  ( !s_data) 

{ 

printf ("\007Can't  boot  dbase  because  %s  ",file_s) ; 
printf ("has  no  data  for  %s\n",file  dat) ; 

} 

if  (is  dbase  1 1  is  data) 

{ 

printf  ("\007Removing  Old  dbase  bootstrap  %s\n",file_cmd) ; 

unlink  ( file_and) ; 

exit(-l); 

} 

printf ("->ingresdb  building  file  INGRES. CMD\n") ; 
dojglobal  () ; 

prTntf  ("->ingresdb  ok\n"); 

} 

/* 

************************************************************************* 

*  setup  setup  file  names,  open  and  prime  input  stream 

************************************************************************* 

V 

setup  () 

{ 

strcpy (file_s,rel) ; 
strcat ( filers , " .S" ) ; 
strcpy  (f ilejdef , rel ) ; 
strcat ( file_def , " . DEF " ) ; 
strcpy (f ile~dat, rel ) ? 
strcat ( f ile—dat, ".DAT") ; 
strcpy  (file"”and, "INGRES. Q4D") ; 
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if  ((filein  =  open(file_s,0) )  =  ERROR) 

{ 

printf  (”\nCan 't  Find  %s\007\n" ,file_s) ; 
exit (-1) ; 

} 

else 

{ 

n=read (filein, buffer +10, BLOCKS)  ; 

bytes_read  =  (n  *  BYTES_PER_BLOCK ) ; 
ptr  *  buffer +10; 


/* 

************************************************************************* 

*  do_global  writes  the  global  boot  strap  file  "INRGES.CMD" 

************************************************************************* 

V 

int 

do_global  () 

struct  _buf  iobuf [BUFSIZ] ; 

strcpy (file_and,  "INGRES.CMD") ; 
if  (fcreat(file_and, iobuf)  =*  ERROR) 

{ 

printf ("\007\nCan 't  .reate  %s\n",file_and); 
printf ("Assuming  out  of  directory  or  space\n") ; 
exit(-l) ; 

} 

fprintf (iobuf , "*  **********************************************\n") ; 
fprintf (iobuf, "*  BOOTSTRAP  FOR:  INGRES  Is  %s\n ", database, r el) ; 
fprintf (iobuf , "*  this  file  is  created  dynamically  by  ingresdb.c\n") ; 
fprintf  ( iobuf,  "*  ****■»■* «***************************************\n" )  • 
fprintf (iobuf , "SET  TALK  OFF\nm) ; 
fprintf ( iobuf, "ERASE\n") ; 

fprintf (iobuf, "@  10,14  SAY  \"DBASE  INGRES  %s  %s\"\n", 
database, r el) ; 

fprintf (iobuf, "STORE  \"%s\"  TO  QATABASE\n", database) ; 

fprintf (iobuf, "STORE  \"%s\"  TO  RELATICN\n",rel); 

fprintf (iobuf , "STORE  \"%s\"  TO  INDEXER\n" , indexer ) ; 

fprintf (iobuf, "DO  INGRES»l\n") ; 

fpr  intf ( iobuf , "RETURN\n" ) ; 

for (n»0;n<25;n++)  work(n)  ■  CPMEOF; 

work[n]  ■  '\0'; 

fprintf (iobuf , "Is", work) ;  - 

f close  (iobuf) ; 

} 

/* 

************************************************************************* 

*  do  mapper  set  up  for  mapper  files  from  input  stream 

************************************************************************* 
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dojnapper  () 

{ 

char  fil(60],  *ex; 
char  c; 

/*  flush  white  space  */ 

while ( (c=getabyte () )  &&  c  !  =  CPMEQF  &&  c  =  '  ')  ; 
ungetbyte (c) ; 
if  (c  “  CPMEOF)  return; 

/*  extract  relation  name  */ 
ex  *  fil; 

while ( (c-getabyte  () )  &&  c  !=  CPMEOF  &&  c  !=  '\n'  &&  c  !  = 

{ 

if  (islower(c)) 

*ex++  *  toupper(c); 
else  *ex++  *  c  ; 

} 

*ex  -  '\0 '  ; 

if  (fil  [0]  —  'R'  &&  fil  [1]  — 
strcpy ( rel , &f il [ 2 ] ) ; 
else  strcpy (rel, fil) ; 
if  (c  —  CPMEOF)  return; 

/*  flush  white  space  */ 

while ( (c*getabyte () )  &&  c  !*  CPMECS1  &&  c  **  '  ')  ; 

ungetbyte (c) ; 

if  (c  —  CPMEOF)  return; 

/*  extract  file  name  */ 
ex  *  fil; 

while  ( (c-getabyte  () )  &&  c  !=*  CPMEOF  &&  c  !*  '\n'  &&  c  !=• 

{ 

if  (islower(c)) 

*ex++  =  toupper (c) ; 
else  *ex-H-  ■  c  ; 

} 

*ex  *  '\0 ' ; 

if  (c  «  CPMEOF)  return; 

/*  flush  single  occur ance  of  <space><nl>  V 
if  ( (c*getabyte ( ) )  &&  c  ! *  '  ' ) 
ungetbyte (c) ; 

if  ( (c-getabyte ())  &&  I (c  —  '\n'  II  c  —  '\r')) 
ungetbyte  (c) ; 

if  ((c»getabyte())  &&  !  (c  —  *\n'  II  c  —  *\r  ’ ) ) 
ungetbyte (c) ; 
if  (c  —  CPMEOF)  return; 

/*  create  &  copy  data  to  the  requested  file*/ 
if  (fil  [0]  —  'R'  &&  fil [1]  —  '_') 
strcpy  (file_map,&fil  [2]  )7 
else  strcpy  (filejnap,  fil ) ; 
printf ("->ingresdb  building  %s\n", filejnap) ; 
do_thedata  ( filejnap, 0) ; 


') 


') 
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} 

/* 

************* ************************** ***************** ********* *★★★***★ 

*  do  ingres  set  up  for  ingres  files  from  input  stream 

************************************************************************* 

V 

do_ingres  ( ) 

char  fil [60],  *ex; 
char  c; 

/*  flush  white  space  */ 

while ( (c*getabyte () )  &&  c  1=  CPMEOF  &&  c  =*  '  ')  ; 

ungetbyte  (c) ; 

if  (c  =-  CPMEOF)  return; 

/*  extract  relation  name  V 
ex  *  fil; 

while  ( (c»getabyte () )  &&  c  l=*  CPMEOF  &&  c  i*  '\n'  &&  c  !*  '  ') 

{ 

if  (islower(c)) 

*ex++  *  toupper(c); 
else  *ex++  a  c  ; 

} 

*ex  *  '\0 ' ; 

if  (fil  [0]  —  'R'  &&  fil  [1]  —  'J) 
strcpy ( rel , &£ il [ 2 ] ) ; 
else  strcpy  (rel ,  fil } ; 

if  (c  ■■  CPMEOF)  return; 

/*  flush  white  space  */ 

while ( (c»getabyte () )  &&  c  !■  CPMEOF  &&  c  —  '  ')  ; 

ungetbyte (c) ; 

if  (c  —  CPMEOF)  return; 

/*  extract  file  name  */ 
ex  »  fil; 

while ( (c»getabyte () )  &&  c  !*  CPMEOF  &&  c  !*  '\n'  &&  c  !=  '  ') 

{ 

if  (islower(c)) 

*ex++  *  toupper (c) ; 
else  *ex-H-  ■  c  ; 

} 

*ex  *  '\0 ' ; 

if  (c  *  CPMEOF)  return; 
rec  size  ■  atoi(fil); 

/*  Tlush  single  occurance  of  <space><nl>  V 
if  ( (c-getabyte () )  &&  c  !■  '  ’) 
ungetbyte  (c) ; 

if  ( (c»getabyte () )  &&  ! (c  ■■  '\n'  II  c  «■  '\r')) 
ungetbyte (c) ; 

if  ( (c»getabyte () )  &&  ! (c  »  '\n'  II  c  —  '\r')) 
ungetbyte (c) ; 
if  (c  “  CPMEOF)  return; 
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357:  /* 


/*  create  &  copy  data  to  the  requested  file*/ 
strcpy (file_ing , rel ) ; 
strcat ( f ile_ing , " . ING" ) ; 

printf ("->ingresdb  building  %s\n",file_ing); 
do_thedata(file_ing,0) ; 
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*  do  dbase  set  up  for  dbase  files  from  input  stream 

V 

do  dbase  () 

{  _ 

char  fil  [60] ,  *ex; 
char  c; 

/*  flush  white  space  */ 

while  ( (c=«getabyte  ( ) )  &&  c  !  =  CPMECF  &&  c  =■  '  ' )  ; 

ungetbyte (c) ; 

if  (c  =*■  CPMEOF)  return; 

/*  extract  relation  name  */ 
ex  =*  fil; 

while  ( (c»getabyte () )  &&  c  !*  CPMEOF  &&  c  !=  '\n'  &&  c  !=  '  ') 

{ 

if  (islower(c)) 

*ex++  *  toupper (c) ; 
else  *ex-H-  *  c  ; 

} 

*ex  »  '\0  * ; 

if  (fil  [0]  —  'R'  &&  fil  [1]  —  '_•) 
strcpy (rel, &fil [2] ) ; 
else  strcpy ( rel , f il ) ; 

if  (c  *  CPMEOF)  return; 

/*  flush  white  space  */ 

while ( (c*getabyte ( ) )  &&  c  ! *  CPMEOF  &&  c  '  ' )  ; 

ungetbyte (c) ; 

if  (c  »  CPMEOF)  return; 

/*  extract  data  relation  size  V 
ex  *  fil; 

while ( (c»getabyte () )  &&  c  !*  CPMEOF  &&  c  !*  '\n'  &&  c  !*  '  ') 

{ 

if  (islower(c)) 

*ex++  »  toupper (c) ; 
else  *r x++  *  c  ; 

} 

*ex  »  '\0' ; 

if  (c  —  CPMEOF)  return; 
rec  size  *  atoi(fil); 

/*  Tlush  single  occur an ce  of  < space ><nl>  V 
if  ( (c«getabyte () )  &&  c  !*  '  ') 
ungetbyte  (c) ; 


2-57 


File: 


401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 
417: 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 


B:INGF£SDB.C  Size:  17K  Page:  9 


if  ( (c«getabyte  () )  &&  ! (c  =  '\n'  II  c  =  '\r ' ) ) 
ungetbyte  (c) ; 

if  ( (c*getabyte  ( ) )  &&  !(c  *  ‘\n'  II  c  =  '\r')) 
ungetbyte  (c ) ; 
if  (c  =*  CPMEOF)  return; 

/*  create  &  copy  data  to  the  requested  file*/ 
strcpy (file_def, rel) ; 
strcat  (file_def , ".DEF") ; 

printf ("->ingresdb  building  %s\n",file_def ) ; 
do  thedata (file_def ,0) ; 

} 

/* 

************************************************************************* 

*  do  data  set  up  for  data  files  from  input  stream 

******** a******************************************************* ★★**★★*★★ 

v 

do  data() 

{  ” 

char  fil[60],  *ex; 
char  c; 

/*  flush  white  space  */ 

while ( (c»getabyte ( ) )  &&  c  ! *  CPMEOF  &&  c  “  '  ' )  ; 

ungetbyte (c) ; 

if  (c  CPMEOF)  return; 

/*  extract  relation  name  V 
ex  »  fil; 

while  ( (c-getabyte  () )  &&  c  !*  CPMEOF  &&  c  !*  '\n'  &&  c  !=»  '  ') 

if  (islower(c)) 

*ex++  *  toupper(c); 
else  *ex++  ■  c  ; 

} 

*ex  *  '\0'; 

if  (fil  [0]  —  'R'  &&  fil  [1]  — 
strcpy ( rel , &f il [  2  ] ) ; 
else  strcpy (rel, fil) ; 
if  (c  »  CPMEOF)  return; 

/*  flush  white  space  */ 

while ( (c»getabyte () )  &&  c  1*  CPMEOF  &&  c  *■  '  ')  ; 

ungetbyte  (c)  ; 

if  (c  »■  CPMEOF)  return; 

/*  extract  data  relation  size  */ 
ex  »  fil; 

while ( (c»getabyte () )  &&  c  !*  CPMEOF  &&  c  !*  '\n'  &&  c  !*  '  ') 

{ 

if  (islower(c)) 

*ex++  ■  toupper(c); 
else  *ex++  *  c  ; 

} 

*ex  ■  '\0 ' ; 
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if  (c  =  CPMEOF)  return; 
rec_size  =  atoi(fil); 

/*  flush  single  occurance  of  < space ><nl>  */ 
if  ( (c^getabyte  () )  &&  c  1=  1  ') 
unge tbyte (c ) ; 

if  ( (c=getabyte  () )  &&  ! (c  =*  '\n'  II  c  =  '\r')) 
unge tbyte (c ) ; 

if  ( (c=getabyte  () )  &&  ! (c  *  '\n'  II  c  =  '\r')) 
unge tbyte (c) ; 
if  (c  »  CPMEOF)  return; 

/*  create  &  copy  data  to  the  requested  file*/ 
strcpy (file_dat, rel ) ; 
str cat ( f ile_dat , " . CAT" ) ; 

printf ("->ingresdb  building  %s  [%d]\n",file_dat,rec__size) ; 
do_thedata ( f ile_dat ,  1) ; 

} 

/* 

*  do_thedata  writes  current  input  stream  to  output  buffer 

* 

*  NOTE:  this  routine  is  based  upon  this  format: 

*  see  sample  at  front  of  this  listing. 

* 

*  ".ingres<space>name<space>size-nnn<space><cr,lf >" 

*  "<a  stream  of  actual  data  (of  record  size-nnn)>" 

*  "<cr,lf>.end<cr,lf>" 

* 

*  ALL  DATA  AFTER  THE  ' .ingres*  LINE  AND  UPTO  THE  ’.end’ 

*  WILL  BE  WRITTEN  ID  THE  OUTPUT  FILE  NAMED. 

* 

*  If  'datasw'  is  true,  a  standard  CP/M  <cr,lf>  will  be  added 

*  after  every  'rec_size'  bytes  of  data  read  in  the  ".data" 

*  section. 

* 

V 

int 

dojthedata  (filename , datasw ) 
char  *filename; 
int  datasw; 

{ 

char  c; 
int  fd,  n2; 

/*  now  at  start  good  data,  output  file  */ 

/*  until  the  ".end"  is  found  (or  CPMEOF)  V 
if  ((fd  »  cr eat  (filename) )  *  ERROR) 

{ 

printf  ("\00AnCan 't  Create  %s\n", filename) ; 
printf ("Assuming  out  of  directory  or  space\n") ; 
exit() ; 
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} 

for  (ptr2  =  buffer 2,  n2  =  BYTES_PER_BDOCK;  n2 — ;  ) 
*ptr2++  =  CPMEOF ; 
ptr2  =  buffer 2; 
bytesjwritten  3  0; 
rec_bytes  =  0; 

while ( (c»getabyte () )  &&  c  !*  CPMEOF) 

{ 

if  ((c  —  &&  lookatendO) 

{ 

/*  flush  <cr ,lf , V 
while ( (c=getabyte ( ) )  && 
c  !=  CPMEOF  && 

(c  am  *\r 1  M 
c  -  '\n'  II 
c  M  1  • ' ) )  ; 

/*  flush  "end"  line  */ 
while ( (c=getabyte  0 )  && 
c  !=  CPMEOF  && 
c  !■  '\r'  && 
c  !*  '\n')  ; 
unge tbyte (c) ; 
break ; 

} 

else 

{ 

*ptr2++  *  c; 
bytesjwr  i  tten++ ; 

if  (bytesjwritten  «  BYTES_PER_BIOCK) 
writebuf2(fd) ; 

if  (datasw) 

{ 

rec_bytes++; 

if  (rec  size  »■  rec  bytes) 

{ 

rec_bytes  ■  0; 

if  ( (c^getabyte  () )  && 

! (c  —  '\n'  II  c  —  *\r • ) ) 
unge  tbyte  (c) ; 

else  if  ( (c»getabyte () )  && 
l(c  —  ’\n '  lie-  '\r ' ) ) 
ungetbyte(c) ; 

else  if  ( (c-getabyte () )  && 

I  (c  —  *\n '  ||  c  —  *\r  ' ) ) 
ungetbyte (c) ; 

else  if  ( (c»getabyte  () )  && 
l(c  -  '\n '  ||  c  -  '\r ') ) 
ungetbyte (c) ? 

*ptr2++  ■  '\r'; 
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bytes_wr i tten++ ; 

if  (bytesjwritten  =  3 YTES_PER_3 LOC K ) 
writebuf2 (fd) ; 

*ptr2++  =  '\n ' ; 
byt  es_wr  i  tten-H-  ; 

if  (bytes_written  —  3YTES_?ER_3LOCX) 
writebuf 2 (fd) ; 


if  (bytes_written)  writebuf 2 (fd) ; 
if  (close (fd)  =-  ERROR) 

{ 

printf  ("\nCan ’t  Close  File\00An"); 
exitQ ; 


************************************************************************* 

*  lookatend  looks  for  '.end*  statement 
************************************************************************* 

*/ 

int 

lookatend  ( ) 

{ 

char  work [11] ; 
char  *wk; 
int  w; 

for  (wk  »  work,w  *  11;  w — ;  *wk++  =*  '\0')  ; 

for  (wk  *  work,w  ■  10;  w—  ;  *wk++  =  getabyteO)  ; 


for  (w  »  10  ; 
wk  »  work; 


unge tbyte (*wk ) ) 


while  ( (*wk  *» 

V 

')  II 

(♦wk  — 

'\n 

')  II 

(*wk  =™ 

1  1 
• 

)) 

wk++; 

if  (*wk++ 

'e' 

&& 

♦wk++  — > 

'n' 

&& 

*wk++  — 

'd' 

&& 

(♦wk  —  ’’ 

\r' 

1 1  *wk 

'\n ' ) ) 


return (1) ; 
return (0) ; 


************************************************************************* 

*  getabyte  returns  next  byte  fran  file  buffer 
************************************************************************* 

V 

char 

getabyte  () 
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{ 

char  c; 

if  ( Ibytes  read) 

{ 

n=read (filein,buffer+10, BLOCKS) ; 
bytes_read  =  (n  *  BYTES_PER_3L0CK)  ; 
ptr  3  buffer +10; 

} 

if  (!bytes_read) 

{ 

signal_eof ++; 
return (CPMEOF) ; 

} 

bytes_read — ; 
c  3  *ptr  ++  ; 
return (c) ; 

} 

/* 

**★**********★*★******★****★★★★★*★★★*★★★***★*★**★***★★************★★★★*★* 

*  ungetbyte  puts  a  byte  back  into  the  file  buffer 

************************************************************************* 

V 

char 

ungetbyte (c) 
char  c; 

{ 

bytes_read++; 
ptr— ; 

*ptr  *  c; 
return (c) ; 

} 

/* 

*  writebuf2  writes  output  buffer2  and  preps  for  next  block 

M******************************** ************************** ************* 

V 

int 

writebuf2(fd) 
int  fd; 

{ 

int  n2; 

if  {write (fd, buffer 2,1)  !*  1) 

{ 

printf ("N nWrite  Error:  %d\n",tell (fd) ) ; 
puts  (errmsg  ( er  mo  ( ) ) ) ; 
exit() ; 

} 

for  (ptr 2  -  buffer2,  n2  *  BYTES  PER  BDXK;  n2— ;  ) 

*ptr2++  »  CPMEOF; 
ptr 2  ■  buffer 2; 
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651:  bytes_written  =  0; 

652:  } 

653:  /* 

654 :  a*********************************************************************** 

655:  *  END  OF  SOURCE 

g5g .  ***********************************************'*********** ******** ****** 

657  i  V 
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*  *•*■***★****★****★**■*★****★**★**★*★****★******** 
2:  *  BOOTSTRAP  FOR:  INGRES  MWT  TEST 
3:  *  this  file  is  created  dynamically  by  ingresdb.c 

5:  SET  TALK  OFF 
6:  ERASE 

7:  3  10,14  SAY  "DBASE  INGRES  MWT  TEST" 

8:  STORE  "MWT"  TO  DATABASE 
9:  STORE  "TEST"  TO  RELATION 
10:  STORE  "  "  TO  INDEXER 
11:  DO  INGRESMM 
12:  RETURN 


Characters:  336 
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File:  INGRESMM.CMD  Size:  5K  Page:  1 


************************  INGRESMM.CMD  ************************* 

2:  * 

3:  *  INGRESMM.CMD  MAIN  MENU  MODULE  FOR  dBASE  II/INGRESS  DEMO 

4:  * 

5:  *  NOTE:  THE  GLOBAL  VALUES  "RELATION"  AND  "INDEXER"  MUST  3E 

6:  *  SET  BEFORE  THIS  COMMAND  STREAM  IS  EXECUTED 

8: 

9:  SET  TALK  OFF 

10:  STORE  RELATION*". S"  TO  INGSTREAM 
11:  STORE  RELATION*" . ING"  TO  INGING 

12:  STORE  RELATION*" . DEF"  TO  ING3EF 

13:  STORE  RELATION*" .DAT"  TO  INGDAT 

14:  STORE  RELATION+" .DBF"  TO  ING3BF 

15:  STORE  RELATION*" .NDX"  TO  INGNDX 

16:  STORE  T  TO  TRUE 
17:  DO  WHILE  TRUE 
18:  ERASE 

19:  SET  COIGN  OFF 

20:  SET  CONSOLE  CN 

21:  ?  CHR(27)+CHR(70) 

22:  3  3,  14  SAY  " 

23:  3  4,  14  SAY  " 

24:  a  5,  14  SAY  " 

25:  ?  CHR(27)+CHR(71) 

26:  a  7,14  SAY  " 

27:  3  8,14  SAY  ' 

28:  3  9,14  SAY  ' 

29:  3  10,14  SAY  ' 

30:  3  11,14  SAY  ' 

31:  3  12,14  SAY  ' 

32:  3  13,14  SAY  ' 

33:  ?  CHR(27)+CHR(70) 

34:  3  15,  14  SAY  " 

35:  ?  CHR(27) +CHR(71) 

36:  3  16,14  SAY  " 

37:  3  17,14  SAY  " 

38:  3  18,14  SAY  " 

39:  3  19,14  SAY  " 

40:  3  20,14  SAY  " 

41:  3  22,14  SAY  "  Enter  menu  selection  number  or  letter." 

42: 

43 ;  ★★**★**★•*★★★★★*★★***★★★*★*****★■*★★★*★*★★★★★**★*★★*★*★★*★★**★★**★★★★★*★* 
44:  *  TRAP  INVALID  RESPONSES  NOT  CN  MENU 

45 t  ***★***★★★**★★★★★★★★★★★★*★★*★★*★*★★★★*★*★★★★****★★★★*★★★★★★*★★★★****★★* 

46:  STORE  T  TO  LEGAL 

47:  DO  WHILE  LEGAL 

48:  SET  CONSOLE  OFF 

49:  WAIT  TO  ANSWER 

50:  SET  CONSOLE  CN 


DBASE  II/ INGRES  DEMO 


1>  Load  & RELATION  from  & INGDAT  to  DBASE  II" 
2>  Display/Edit  Records  from  TOP  of  file' 

3>  Display/Edit  Records  Indexed  by  &INDEXER' 
4>  Search/Edit/Delete  by  & INDEXER* 

5>  Add  New  ^RELATION  Database  Records' 

6>  Display  & RELATION  Structure  Format' 

7>  Rebuild  & INGDAT  for  Reload  to  INGRES' 


A>  Shift  to  ANOTHER  Database  [DBASE  II]' 
C>  Clear  & RELATION  Database  [DBASE  II]' 
D>  Delete  ^RELATION  Database  [DBASE  II]1 
E>  Exit  to  DBASE  II  Prompt" 

Q>  Quit  to  CP/M  Prompt" 
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51:  STORE  VAL (ANSWER)  TO  RANGE 

•  52:  STORE  ! (ANSWER)  TO  ANSWER 

53:  IE  ANSWER® "A"  .OR.  ANSWER® "C"  .OR.  ANSWER® "D"  .OR.  ANSWER="E"  .OR.  ANSWER® "Q" 

54:  STORE  F  TO  LEGAL 

55:  ENDIF 

56:  IF  LEGAL 

57:  IF  RANGECl  .OR.  RANGE>7 

58:  LOOP 

59:  ELSE 

60:  STORE  F  TO  LEGAL 

61:  ENDIF  Range 

62:  ENDIF  Legal 

63 :  ENDDO  Legal 

64: 

65: 

gg.  *********************************************************************** 

67:  *  SUBSTITUTE  ANOTHER  RELATION  FOR  THE  PRESENT  ONE 

£3 .  ************************************ ft********************************** 

69: 

70:  IF  ANSWER=*"A" 

71:  IF  FILE ("INGRESAN.CMD") 

72:  DO  INGRESAN 

73:  ENDIF 

74:  LOOP 

75:  ENDIF 

76: 

77: 

73 .  ♦■a******************************'*'************************** ************ 

79:  *  CLEAR  DATA  FROM  ^RELATION  BY  DELETE  AND  RE-CREATE 

30.  A********************************************************************** 

81: 

82:  IF  ANSWER® "C" 

83:  IF  FILE  ("INGRESCD.CMD") 

84:  DO  INGRESCD 

85:  ENDIF 

86:  LOOP 

87:  ENDIF 

88: 

39;  *********************************************************************** 

90:  *  DELETE  5, RELATION  FROM  DISK,  RETURN  DISK  SPACE  TO  SYSTEM 

91;  *********************************************************************** 

92.- 

93:  IF  ANSWERED" 

94:  IF  FILE ("INGRESDR.CMD") 

95:  DO  INGRESDR 

96:  ENDIF 

97:  LOOP 

98:  ENDIF 

99: 

100: 
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101  * 

102:  *  EXIT  TO  DBASE  II  COMMAND  LEVEL  (ACTUALLY  ANY  HIGHER  LEVEL) 

103 ;  **★*★★★★★*★*★*★*★**★★*★★**★★**★★*★★★*★*★*★★★★**★*★★*★*★★★★★★★★★*★★★*★★★ 
104: 

105:  IF  ANSWER="E" 

106:  USE 

107 :  ERASE 

108:  RETURN 

109:  ENDIF  Ans=e 

110: 

111: 

112:  *********************************************************************** 
113:  *  EXIT  TO  CP/M,  COMPLETELY  LEAVING  DBASE  II 

.  *********************************************************************** 

115: 

116:  IF  ANSWER="Q" 

117:  USE 

118:  ERASE 

119:  QUIT 

120:  ENDIF  Ans»q 

121: 

122 :  *********************************************************************** 

123:  *  CREATE  S.RELATICN  AND  APPEND  DATA  FROM  &INGDAT 

^24  ;  it  it  it  it  irk  irk  it  irk  it  irk  it  it  irk  it  it  it  irk  it  it  it  it  it  it  it  it 

125: 

126:  IF  ANSWER*" 1" 

127:  IF  FILE ("INGRESCR.CMD") 

128:  DO  INGRESCR 

129:  ENDIF 

130:  LOOP 

131:  ENDIF 

132: 

233  z  kkitkirkititititirkititititirkkitititititiritititititititiUtititititititititititiritititititkkkkkitkkitkkkkititititkitkit 

134:  *  CALL  TO  EDIT  MODULE  FOR  ANSWERS  2,  3,  4,  5 

235 :  kkkkkkititititltiiitirkititititkitititititititititititititkkkitkititititkititititkitititkkititkkltkkititkitkkitkitkk 

136: 

137:  IF  RANGE>1  .AND.  RANGE<6 

138:  IF  FILE ( "INGRES ED. CMDH) 

139:  DO  INGRESED 

140:  ENDIF 

141:  IOOP 

142:  ENDIF 

143: 

144  z  *************************★***★*★*★****★*★★★***★★**★★★*★*****★********** 
145:  *  SHOW  STRUCTURE  OF  4 RELATION  BY  LISTING  CONTENT  OF  INGRESDF 

146:  *********************************************************************** 
147: 

148:  IF  ANSWER*" 6" 

149:  IF  FILE ("INGRESSS.CMD") 

150:  CO  INGRESSS 
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151:  ENDIF 

152:  LOOP 

153:  ENDIF 

154: 

155: 

^5g .  ***************************** ********** ************** ****************** 

157:  *  CALL  &  RELATION.  CAT  REBULD  TO  GET  READY  TO  RELOAD  INGRES 

25Q •  *★*★★***★***★**★*•*■*★*★★★*★★★**★★★★★★★★*★*★★★★★★*★*★★***★*★★★★★★★***★★*★ 

159:* 

160:  IF  ANSWER»"7" 

161:  IF  FILE (" TNGRESRB.CMD") 

162:  DO  INGRES RB 

163:  ENDIF 

164:  LOOP 

165:  ENDIF 

166: 

167: 

168:  ENDDO  True 
169:  RETURN 

Characters:  5066 
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**************************  INGRESAN.CMD  *********************** 

2:-* 

3:  *  INGRESAN.CMD  BRINGS  IN  ANOTHER  'DBF'  AND  BOOTS  IT 

4:  * 

6: 

7:  SET  TALK  OFF 

8:  * 

g. 

10:  *  part  1  get  relation  name 
;  ****************************** 

12:  * 

13:  ERASE 

14:  STORE  T  TO  LEGAL 

15:  DO  WHILE  LEGAL 

16:  SET  CONSOLE  ON 

17:  SET  CONFIRM  CN 

18:  STORE  "  "  TO  RELATION 

19:  5  10,14  SAY  "What  is  the  name  of  the  dBASE  file?" 

20:  9  11,14  SAY  "(Use  File  Name  Oily,  no  extension.) 

21:  GET  RELATION  PICTURE  "XXXXXXXX" 

22:  SET  OONSOLE  OFF 

23:  READ 

24:  SET  CONSOLE  CN 

25:  SET  CONFIRM  OFF 

26:  STORE  i (RELATION)  TO  RELATION 

27:  STORE  TRIM  (RELATION)  TO  RELATION 

28:  STORE  RELATION+" .DBF"  TO  INGSTREAM 

29:  IF  FILE (INGSTREAM) 

30:  STORE  F  TO  LEGAL 

31:  ENDIF 

32: 

33:  ENDDO 
34:  ERASE 

35:  STORE  RELATION+" .S"  TO  INGSTREAM 
36:  STORE  RELATICN+" . ING"  TO  INGING 
37:  STORE  RELATICN+"  .DEF"  TO  INGDEF 
38:  STORE  RELATICN+" . DAT"  TO  INGDAT 
39:  * 

40 .  ****************************** 

41:  *  part  2  build  <relation>.dat 

42 ;  ****************************** 

43:  * 

44:  ERASE 

45:  9  10,14  SAY  "Standby  while  writing  all  records  to  &ING2AT" 

46:  USE  4 RELATION 
47:  SET  TALK  OFF 
48:  SET  CONSOLE  OFF 
49:  COPY  TO  & INGDAT  SDF 
50:  * 
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52:  *  part  2  build  <relation>.def 
53 2  *★★★★■**■**★*★*★***■**★★**★★***★* 

54:  * 

55:  8  11,14  SAY  "Standby  while  writing  structure  to  &INGDEF" 
56:  USE  & RELATION 

57:  COPY  TO  INGRESOF  STRUCTURE  EXTENDED 
58:  USE  INGRESDF 
59:  COPY  TO  &INGDEF  SDF 
60:  * 

.  ****************************** 

62:  *  part  3  exit  to  ingresul.c 

53 .  *•**★★*★★★*★***★****'**'****★'**★* 

64:  * 

65:  USE 

66:  8  12,14  SAY  "Standby  while  re-building  &INGSTREAM" 

67:  8  13,14  SAY  "EXITING  FROM  DBASE  (I  WILL  RETUIN!)" 

68:  DELETE  FILE  &INGSTREAM 

69:  DELETE  FILE  SINGING 

70:  DELETE  FILE  &INGCMD 

71:  QUIT  TO  "INGRESUL  &  DATABASE  S,  RELATION" , ; 

72:  "INGRESDB  &DATABASE  ^RELATION",; 

73:  "DBASE  INGRES" 
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File:  INGRESCD.CMD  Size:  2K  Page 


^ *  *★**★★★★★*★★★★*★★*★**★★  INGRESCD.CMD  *★*★★★***★★★*★★*★★★★★★★★★ 

2:  *  CLEAR  DATA  FROM  ^RELATION  BY  DELETE  AND  RE-CREATE 

2  J  ******************************** Ik******************* ************ 

4: 

5:  ERASE 
6:  SET  TALK  OFF 
7:  SET  CONSOLE  OFF 
8:  STORE  F  TO  LEGAL 

9:  IF  FILE ("&INGDBF")  .AND.  FILE ("INGRESDF. DBF") 

10:  STORE  T  TO  LEGAL 

11:  ENDIF 
12:  IF  LEGAL 
13:  ERASE 

14:  3  10,14  SAY  'Rebuilding  Structure  of  ^RELATION' 

15:  USE  INGRESDF 

16:  DELETE  ALL 

17:  PACK 

18:  USE  ^RELATION 

19:  COPY  TO  INGRESDF  STRUCTURE  EXTENDED 

20:  §  11,14  SAY  'Standby  while  clearing  ^RELATION  Database.' 

21:  USE 

22:  DELETE  FILE  &INGDBF 

23:  IF  FILE  ("SINGTOX") 

24:  DELETE  FILE  &INGNDX 

25:  ENDIF  answer 

26:  9  12,14  SAY  "Creating  &RELATION  Database  (EMPTY)" 

27:  CREATE  & RELATION  FROM  INGRESDF 

28:  USE  &RELATICN 

29:  IF  INDEXERO"  " 

30:  INDEX  CN  &  INDEXER  TO  &RELATION 

31:  ENDIF  Indexer 

32:  ELSE 

33:  %  10,14  SAY  "This  option  requires  &INGDBF" 

34:  a  11,14  SAY  "A  non-existant  DBASE  Database  file" 

35:  9  12,14  SAY  "Try  using  another  DBASE  database  file" 

36:  §  13,14  SAY  "From  the  main  menu.  Press  return  to  go." 

37:  WAIT  TO  ANSWER 

38:  ENDIF 

39:  STORE  T  TO  TRUE 
40:  STORE  "N"  TO  ANSWER 
41:  RETURN 
42: 


Characters:  1094 
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***********************  ingrescr.cmd  ************************* 

*  INGRESCR.CMD  CREATES  dBASE  II  ".DBF"  AND  APPENDS  DATA 

**************************************************************** 

ERASE 

SET  TALK  OFF 
SET  CONSOLE  OFF 
STORE  F  ID  LEGAL 

IF  FILE ("&INGDAT")  .AND.  FILE ("S.INGDEF") 

STORE  T  TO  LEGAL 

ENDIF 
IF  LEGAL 

ERASE 

9  10,14  SAY  'Rebuilding  Structure  of  ^RELATION  from  &INGDEF ' 

USE  INGRESDF 
DELETE  ALL 
PACK 

APPEND  FROM  S.INGDEF  SDF 

9  11,14  SAY  'Standby  while  clearing  s. RELATION  Database.' 

DELETE  FILE  ^RELATION 

3  12,14  SAY  "Creating  ^RELATION  Database  with  data  from  &INGDAT" 
CREATE  & RELATION  FROM  INGRESDF 
USE  S.RELATION 
APPEND  FROM  &INC33AT  SDF 

* 

*  INDEX  BY  SPECIFIED  FIELD  OR  ASK  ABOUT  INDEXING 

* 

IF  INDEXERO"  " 

3  13,14  SAY  "Indexing  St  RELATION  by  S.  INDEXER" 

INDEX  CN  St  INDEXER  TO  S.RELATION 

et.se 

STORE  "any"  TO  ANSWER 

DO  WHILE  ANSWERO"Y"  .AND.  ANSWERO"N" 

STORE  "  "TO  ANSWER 

§  14,14  SAY  "Want  INDEX  created  for  &RELATION  <y,n>?"; 

GET  ANSWER  PICTURE  "XXX" 

SET  COLON  CN 
SET  CONSOLE  CN 
READ 

SET  CONSOLE  OFF 
SET  COLON  OFF 
STORE  ! (ANSWER)  TO  ANSWER 
STORE  TRIM  (ANSWER)  TO  ANSWER 
ENDDO  answer 

IF  ANSWER»"Y"  .AND.  FILE ("INGRESIX.CMD") 

X  INGRESIX 
STORE  "N"  TO  ANSWER 

ENDIF  y 
ENDIF  Indexer 

* 


it************************ 
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51:  * 

52:  ELSE 

53:  a  10,14  SAY  "This  option  requires  &INGDEF  AND  &INGDAT" 

54:  IF  FILE ("&INGSTREAM") 

55:  3  11,14  SAY  "Stand  by  while  building  them  from  SINGSTREAM" 

56:  3  12,14  SAY  "PLEASE  RE-TRY  WHEN  THE  MAIN  MENU  RETURNS" 

57:  QUIT  TO  "INGRESDB  ^DATABASE  $,  RELATION  &  INDEXER" ,  "DBASE  INGRES" 

58:  ENDIF 

59:  a  11,14  SAY  "They  cannot  be  re-built  from  &INGSTREAM" 

60:  §  12,14  SAY  "Try  to  use  another  DBASE  database  file" 

61:  @  13,14  SAY  "From  the  main  menu.  Press  return  to  go." 

62:  WAIT  TO  ANSWER 

63:  ENDIF 

64:  STORE  "N"  TO  ANSWER 
65:  STORE  T  TO  TRUE 

66:  STORE  T  TO  LEGAL 

67:  RETUIN 


Characters:  1859 
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1: 

2: 

3: 

4: 

5: 

6: 

7: 

8: 

9: 

10: 

11: 

12: 

13: 

14: 

15: 

16: 

17: 

18: 

19: 

20: 

21: 

22: 

23: 

24: 

25: 

26: 

27: 

28: 

29: 

30: 

31: 


***********************  INGRESDR.CMD  ************************* 
*  INGRESDR.CMD  WILL  DELETE  ^RELATION  FROM  DBASE 
******★*★******★★***'*★★*'********★*  ***  *★*★***★**★**■*  *******  ****** 

ERASE 

SET  TALK  OFF 
SET  CONSOLE  OFF 
STORE  F  TO  LEGAL 
IF  FILE ("&INGDBF") 

STORE  T  TO  LEGAL 

ENDIF 
IF  LEGAL 

ERASE 

USE  INGRESDF 

@  10,14  SAY  'Standby  while  DELETING  & RELATION  Database.' 

USE 

DELETE  FILE  ^RELATION 
IF  FILE ("&INGNDX") 

DELETE  FILE  &INGNDX 
ENDIF  answer 

ELSE 

3  10,14  SAY  "This  option  requires  &INGDBF" 

@  11,14  SAY  "A  non-existant  DBASE  Database  file" 
a  12,14  SAY  "Try  using  another  DBASE  database  file" 

9  13,14  SAY  "From  the  main  menu.  Press  return  to  go." 

WAIT  TO  ANSWER 

ENDIF 

STORE  "N"  TO  ANSWER 
STORE  T  TO  TRUE 
RETURN 
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1 

2 

3 

4 

5 

6 
7 
3 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 


*************************  INGRESED.CMD  *********************** 
★ 

*  INGRESED.CMD  edit  control  procedure  for  dBASE  II/INGRESS 

*  demo  program. 

* 

**************************************************************** 


USE  ^RELATION 
DO  WHILE  TRUE 
ERASE 

IF  ANSWER*" 2" 

SET  INDEX  10 
BROWSE 

STORE  T  TO  TRUE 
RETURN 
ENDIF  Ans*2 
IF  ANSWER-" 3" 

SET  INDEX  TO  4 RELATION 
BROWSE 

STORE  T  TO  TRUE 
RETURN 
ENDIF  Ans-3 
IF  ANSWER*" 4" 

SET  INDEX  TO  ^RELATION 
ERASE 

STORE  T  TO  TRUE 
DO  WHILE  TRUE 

STORE  "  "  TO  NM 

a  10,14  SAY  '  Enter  name  of  individual  '  GET  NM  PICTURE  "AAAAAAAAAAAAAAA" 
SET  CONSOLE  OFF 
READ 

SET  CONSOLE  CN 
FIND  S.NM 
IF  #*0 
ERASE 

a  10,14  SAY  '  No  find  -  do  you  wish  to  try  again?  (Y/N) ' 

SET  CONSOLE  OFF 
WAIT  TO  ANSWER 
SET  CONSOLE  CN 
IF  !  (ANSWER) *”Y" 

LOOP 

ELSE 

STORE  F  TO  TRUE 
ENDIF  Ans*y 
ELSE 

BROWSE 

ERASE 

3  10,14  SAY  '  Are  you  ready  to  Pack  database?  (Y/N)' 

SET  CONSOLE  OFF 
WAIT  TO  ANSWER 
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51:  SET  CONSOLE  ON 

52:  IF  ! (ANSWER) ="Y” 

53:  *  10,0 

54:  <-  10,14  SAY  'Standby  while  packing  database  for  deleted  files.’ 

55:  PACK 

56:  STORE  T  TO  TRUE 

57:  RETURN 

58:  ELSE 

59:  STORE  T  TO  TRUE 

60:  RETURN 

61:  ENDIF 

62:  ENDIF  #=0 

63:  ENDDO  True 

64:  STORE  T  TO  TRUE 

65:  RETURN 

66:  ENDIF  Ans=*4 

67:  IF  ANSWER="5" 

68:  SET  INDEX  TO  &REIATION 

69:  APPEND  BLANK 

70:  BROWSE 

71:  STORE  T  TO  TRUE 

72:  RETURN 

73:  ENDIF  Ans=5 

74:  ENDDO  'True 

75:  STORE  T  TO  TRUE 

76:  STORE  "N"  TO  ANSWER 

77:  RETURN 
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1: 

2: 

3: 

4: 

5: 

6: 

7: 

8: 

9: 

10: 

11: 

12: 

13: 

14: 

15: 

16: 

17: 

18: 

19: 

20: 

21: 

22: 

23: 

24: 

25: 

26: 

27: 

28: 

29: 

30: 

31: 

32: 

33: 

34: 

35: 

36: 

37: 

38: 

39: 

40: 

41: 

42: 

43: 

44: 

45: 

46: 

47: 

48: 

49: 

50: 


***********************  ingresix.cmd  ************************* 

*  INGRESIX.CMD  CREATES  dBASE  II  " .NDX"  FILE  FOR  & RELATION 

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★Ik* 

ERASE 

SET  TALK  OFF 
STORE  F  TO  LEGAL 

IF  FILE ("&INGDBF")  .AND.  FILE {"INGRESDF. DBF") 

STORE  T  TO  LEGAL 

ENDIF 

IF  .NOT.  LEGAL 

§1,1  SAY  "The  files  &INGDBF  and  INGRESDF. DBF  are  needed" 

§2,1  SAY  "dBase  II  failure  in  INGRESIX.QO" 

RETURN 

ENDIF 

* 

*  part  1  display  field  names 

* 

ERASE 

§  1,1  SAY  'PLEASE  SELECT  INDEX  FIELD  NAME' 

STORE  3  TO  W 
USE  INGRESDF 
00  TOP 

STORE  T  TO  TRUE 
DO  WHILE  TRUE 

IF  .NOT.  EOF 

§  W,1  SAY  ">"+FIEID:NAME 

SKIP 

ENDIF 

IF  .NOT.  EOF 

§  W,21  SAY  ">"+FIELD:NAME 

SKIP 

ENDIF 

IF  .NOT.  EOF 

§  W, 41  SAY  ">"+FIEID:NAME 

SKIP 

ENDIF 

IF  .NOT.  EOF 

§  W, 61  SAY  ">"+FIELD:NAME 

SKIP 

ENDIF 
IF  DOF 

STORE  F  TO  TRUE 

ENDIF 

STORE  W+l  TO  W 

ENDDO  true 

* 

**************************** 

*  part  2  enter  selection 
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51 

**********★**★*★*★***★★***** 

52 

★ 

53 

STORE  T  TO  TRUE 

54 

CO  WHILE  TRUE 

55 

SET  COLON  CN 

56 

SET  CONSOLE  ON 

57 

SET  CONFIRM  CN 

53 

STORE  "  "TO  INDEXER 

59 

a  1,32  SAY 

60 

GET  INDEXER  PICTURE  "XXXXXXXXXX" 

61 

SET  CONSOLE  OFF 

62 

READ 

63 

SET  CONSOLE  CN 

64 

SET  CONFIRM  OFF 

65 

SET  COLON  OFF 

66 

STORE  ! (INDEXER)  TO  INDEXER 

67 

STORE  TRIM  (INDEXER)  TO  INDEXER 

68 

a  1,33  SAY  "&INDEXER 

69 

* 

70 

**************************** 

71 

*  part  3  validate  selection 

72 

73 

* 

74 

USE  INGRESDF 

75 

GO  TOP 

76 

DO  WHILE  TRUE 

77 

IF  .NOT.  EOF 

78 

STORE  FIELD: NAME  TO  ANSWER 

79 

STORE  ! (ANSWER)  TO  ANSWER 

80 

STORE  HUM  (ANSWER)  TO  ANSWER 

81 

IF  "& INDEXER"  *  "&ANSWER" 

82 

STORE  F  TO  TRUE 

83 

ELSE 

84 

SKIP 

85 

ENDIF 

86 

ELSE 

87 

STORE  F  TO  TRUE 

88 

ENDIF 

89 

ENDDO  true 

90 

IF  EOF 

91 

a  1,44  SAY  "NAME  INVALID" 

92 

GO  TOP 

93 

STORE  T  TO  TRUE 

94 

STORE  25  TO  W 

95 

DO  WHILE  WO0 

96 

STORE  W-l  TO  W 

97 

ENDDO  w 

98 

a  1,33  SAY  " 

99 

a  1,33  SAY  ">" 

100 

ENDIF  eof 
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101:  ENDDO  true 

102:  * 

103 :  **************************** 

104:  *  part  4  index  by  selection 
105 t  ★★★*★★*★★*★***★★*★★********* 

106:  * 

107:  3  1,33  SAY  "Indexing  ^RELATION  by  &  INDEXER" 

108:  USE  &RELATICN 

109:  INDEX  CN  & INDEXER  TO  ^RELATION 

110:  STORE  "N"  TO  ANSWER 

111:  STORE  T  TO  TRUE 

112:  STORE  T  TO  LEGAL 

113:  RELEASE  W 

114:  RETURN 


Characters:  2334 
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File:  INGRESRB.CMD  Size:  IK  Page 


]_.  **************************  INGRESRB.CMD  *********************** 
2:  * 

3:  *  INGRESRB.CMD  CREATES  some  FILES  FOR  UPLOADING  TO  INGRES 

4:  *  FROM  EXISTING  DBASE  <&RELATION> . DBF 

5:  * 

g  «  ****★★★***★★*★**★***★★★★*★★★★★★★★★★*★★*★★**★***★★★*★*★★★★**★*★★*★ 

7: 

8:  * 

0  • 

10:  *  part  1  build  <relation>.dat 

H .  ****************************** 

12:  * 

13:  ERASE 

14:  @  10/14  SAY  "Standby  while  writing  all  records  to  &INGDAT" 

15:  USE  &RELATICN 
16:  SET  TALK  OFF 
17:  SET  CONSOLE  OFF 
18:  COPY  TO  &INGDAT  SDF 
19:  * 

20 *  ***★★★★*★★★*★★★***★★*★★*★★★★*★ 

21:  *  part  2  build  <relation>.def 
22 ; 

23:  * 

24:  §  11,14  SAY  "Standby  while  writing  structure  to  &INGDEF" 

25:  USE  &RELATION 

26:  COPY  TO  INGRESDF  STRUCTURE  EXTENDED 

27:  USE  INGRESDF 

28:  COPY  TO  &INGDEF  SDF 

29:  * 

30 .  ****************************** 

31:  *  part  3  exit  to  ingresul.c 

32 ;  ****************************** 

33:  * 

34:  USE 

35:  §  12,14  SAY  "Standby  while  re-building  &INGSTREAM" 

36:  3  13,14  SAY  "EXITING  FRCM  DBASE  (I  WILL  RETURN!)" 

37:  DELETE  FILE  SINGING 

38:  QUIT  TO  "INGRESUL  ^DATABASE  ^RELATION" , "DBASE  INGRES" 


Characters:  1012 


2-80 


SECTION  2.18 


File:  INGRESSS.CMD  Size:  IK 


Page 


1: 

2: 

3: 

4: 

5: 

6: 

7: 

8: 

9: 

10: 

11: 

12: 

13: 

14: 

15: 

16: 

17: 

18: 

19: 

20: 

21: 

22: 

23: 

24: 

25: 

26: 

27: 

28: 

29: 

30: 

31: 

32: 

33: 

34: 


INGRESSS.CMD  *★★★★★★★★★★★★★★★**★★**★★★ 
*  INGRESSS.CMD  WILL  SHOW  STRUCTURE  OF  ^RELATION  FROM  DBASE 


ERASE 

SET  TALK  OFF 
SET  CONSOLE  OFF 
STORE  F  TO  LEGAL 
IF  FILE ("&INGDBF") 

STORE  T  TO  LEGAL 

END  IF 
IF  LEGAL 

a  1,1  SAY  'Structure  of  &RELATION' 

USE  INGRESDF 
DELETE  ALL 
PACK 

USE  ^RELATION 

COPY  TO  INGRESDF  STRUCTURE  EXTENDED 
USE  INGRESDF 
SET  CONSOLE  CN 
LIST 

a  1,40  SAY  ’..Press  Return  to  Continue..' 

SET  CONSOLE  OFF 
WAIT  TO  ANSWER 

ELSE 

a  10,14  SAY  "This  option  requires  &INGDBF" 

§  11,14  SAY  "A  non-existant  DBASE  Database  file" 

9  12,14  SAY  "Try  using  another  DBASE  database  file" 
a  13,14  SAY  "From  the  main  menu.  Press  return  to  go." 
WAIT  TO  ANSWER 

ENDIF 

STORE  "N"  TO  ANSWER 
STORE  T  TO  TRUE 
RETURN 


Characters:  845 
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SECTION  3.1 

MAKEFILE 

#  This  requires  you  to  be  at  the  SUPERUSER  level  for  installation. 

#  Also  you  must  be  in  the  directory  that  contains  Makefile. 

#  To  execute:  make  install  — will  install  the  following 

#  or 

#  To  recompile  supert:  make  supert  — will  recompile  super 

# 

install : 

cp  bin/super  /usr/local 
chmod  0755  /usr/local/super 
chown  ty  /usr/local/super 

* 

cp  bin/superd  /usr/local 
chmod  0755  /usr/local/superd 
chown  ty  /usr/local/superd 

# 

cp  bin/supert  /usr/local/lib/scomp/bin 
chmod  0755  /usr /local/lib/scomp/bin/supert 
chown  ty  /usr/local/lib/scomp/bin/supert 

# 

cp  man/super. 1  /usr/man/manl 
chown  ty  /usr/man/manl/super . 1 
man  super  >temp 

# 

cp  man/superd. 1  /usr/man/manl 
chown  ty  /usr/man/manl/superd. 1 
man  superd  >temp 

* 

cp  man/super t.l  /usr/man/manl 
chown  ty  /usr/man/manl/supert. 1 
man  supert  >terap 

* 

rm  temp 

supert:  src/supert.c 

cc  src/supert.c  -0  -o  bin/supert 
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UNIX  Programmer's  Manual 


super ( 1L ) 


NAME 

super  -  SUPERCOMP-TWENTY  (C) 
SYNOPSIS 

super  [ <command-f ile> ] 


DESCRIPTION 

The  super  command  is  used  to  start  the  SUPERCOMP-TWENTY 
electronic  spread  sheet  package.  You  may  optionally  specify 
<  command- fi_le>  to  identify  a  file  of  SUPERCOMP-TWENTY  com¬ 
mands  to  be  executed  when  the  program  is  started. 


A  summary 
BACKSPACE 


HELP 

SPACE  BAR 
PAGE 


of  the  SUPERCOMP-TWENTY  commands: 

Aborts  an  entry  or  command  (before 
return ) . 

Displays  Help  Text.  [Note:  usually 
Recalcalciilates  the  worksheet. 

Scr  > 


pressing 
" f 2 "  key] 
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SECTION  3.3 


SUPER  NROFF  FILE 


.TH  super  1L  NOSC 
.UC  4 
.SH  NAME 

super  \-  SUPERCOMP-IWENTY  (C) 

.SH  SYNOPSIS 
.B  super 

.RB  [<comnand-file>] 

.SH  DESCRIPTION 
The 

.1  super 

command  is  used  to  start  the  SUPERCOMP-IWENTY  electronic 
spread  sheet  package.  You  may  optionally  specify 
.1  <command-file> 

to  identify  a  file  of  SUPERCOMP-TWENTY  comnands  to  be  executed  when  the 
program  is  started. 

.sp 

A  summary  of  the  SUPERCOMP-TWENTY  commands: 

.TP  1.21 
.1  BACKSPACE 

Aborts  an  entry  or  command  (before  pressing  return). 

.TP 

.1  HELP 

Displays  Help  Text.  [Note:  usually  "f2"  key] 

.IP 

.1  SPACE  BAR 

Recalcalculates  the  worksheet. 

.TP 

.1  PAGE 

Scrolls  the  worksheet  in  the  direction  of  the  arrow  key 
pressed  after  it.  [Note:  usually  "f3"  key] 

.TP 

.1  QOTO  (» 

Allows  you  to  move  the  cursor  directly  to  a  specified  cell. 

[Note:  usually  "f4"  key] 

.TP 

.1  / 

First  character  of  every  keyboard  command  sequence. 

.TP 
.1  B 

Blank  a  range  of  cells. 

.TP 
.1  C 

Clear  the  worksheet. 

.TP 
.1  D 

Delete  current  column  or  row 
.TP 
.1  E 

Edit  a  formula  in  a  cell. 

•TP 
.1  F 

Format  display  style  for  a  cell. 

.1  I 

Insert  column  or  row. 

.TP 
.1  M 
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Move  the  current  row  or  colunri  to  a  new  location. 

.TP 

.1  0 

Set  Options  for  Printer,  Terminal,  Delimiter. 

.TP 
.1  P 

Print  all  or  part  of  a  worksheet. 

.TP 
.1  R 

Replicate  cells  from  source  into  new  location. 

.TP 
.1  S 

Storage  (file)  commands. 

.TP 
.1  T 

Title  set  up  commands. 

.TP 
.1  W 

Window  set  up  conmands. 

.TP 
.1  X 

Exit  from  SUPERCOMP-TWENTY 
.SH  NOTE 

SUPERCOMP-TWENTY  will  ignore  most  traditional  UNIX  keyboard  "interrupt" 
and  "quit"  signals.  To  terminate  the  package  you  must  use  the 
.1  /XY 
or 

.1  /XS 
conmands. 

.SH  FILES 

All  files  created  by  SUPERCOMP  will  be  directed  to  the 
.1  current  working  directory. 

.SH  DIAGNOSTICS 

The  messages  issued  by  SUPERCOMP-TWENTY  are  explained  in  the 
SUPERCOMP-TWENTY  HANDBOOK. 

.SH  "SEE  ALSO" 
superd ( 1L) ,  supert ( 1L) 

.SH  AUTHOR 

SUPERCOMP-TWENTY  (C)  is  a  product  of  Access  Technology,  Inc. 
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superd ( 1L) 


UNIX  Programmer's  Manual 


superd ( 1L ) 


NAME 

superd  -  SUPERCOMP-TWENTY  (C)  Demo  package 
SYNOPSIS 

superd  [<command-f ile>] 


DESCRIPTION 

The  superd  command  is  used  to  start  the  SUPERCOMP-TWENTY 
electronic  spread  sheet  package.  You  may  optionally  specify 
<command-f ile>  to  identify  a  file  of  SUPERCOMP-TWENTY  com- 
mands  to  be  executed  when  the  program  is  started. 


A  summary 
BACKSPACE 

HELP 

SPACE  BAR 
PAGE 


GOTO  (>) 

/ 

B 

C 

D 

E 

F 

I 

M 


of  the  SUPERCOMP-TWENTY  commands: 

Aborts  an  entry  or  command  (before  pressing 
return ) . 

Displays  Help  Text.  [Note:  usually  "f2"  key] 

Recalcalculates  the  worksheet. 

Scrolls  the  worksheet  in  the  direction  of  the 
arrow  key  pressed  after  it.  [Note:  usually  "f3" 
key] 

Allows  you  to  move  the  cursor  directly  to  a 
specified  cell.  [Note:  usually  "f4"  key] 

First  character  of  every  keyboard  command 
sequence . 

Blank  a  range  of  cells. 

Clear  the  worksheet. 

Delete  current  column  or  row 
Edit  a  formula  in  a  cell. 

Format  display  style  for  a  cell. 

Insert  column  or  row. 

Move  the  current  row  or  column  to  a  new  loca¬ 
tion. 
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superd ( 1L) 

0  Set  Options  for  Printer,  Terminal,  Delimiter. 

£  Print  all  or  part  of  a  worksheet. 

R  Replicate  cells  from  source  into  new  location. 

S  Storage  (file)  commands. 

T  Title  set  up  commands. 

W  Window  set  up  commands. 

X  Exit  from  SUPERCOMP-TWENTY 

NOTE 

SUPERCOMP-TWENTY  will  ignore  most  traditional  UNIX  keyboard 
"interrupt"  and  "quit"  signals.  To  terminate  the  package 
you  must  use  the  /XY  or  /XS  commands. 


FILES 

All  files  created  by  SUPERCOMP  will  be  directed  to  a  special 
subdirectory  of  the  current  working  directory. 

DIAGNOSTICS 

The  messages  issued  by  SUPERCOMP-TWENTY  are  explained  in  the 
SEE  ALSO 

super (1L),  super t  (1L)  SUPERCOMP-TWENTY  HANDBOOK. 

AUTHOR 

SUPERCOMP-TWENTY  (C)  is  a  product  of  Access  Technology,  Inc. 
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SECTION  3.5 


SUPERD  NROFF  FILE 


.TH  superd  1L  NOSC 
.uC  4 
.SH  NAME 

superd  \-  SUPERCOMP-TWENIY  (C)  Demo  package 
.SH  SYNOPSIS 
.B  superd 

.RB  [<command-file>] 

.SH  DESCRIPriON 
The 

.1  superd 

command  is  used  to  start  the  SUPERCOMP-TWENTY  electronic 
spread  sheet  package.  You  may  optionally  specify 
.1  <conmand-file> 

to  identify  a  file  of  SUPERCOMP-TWENTY  commands  to  be  executed  when  the 
program  is  started. 

•  sp 

A  summary  of  the  SUPERCOMP-TWENTY  commands: 

.TP  1.2i 
.1  BACKSPACE 

Aborts  an  entry  or  command  (before  pressing  return). 

.TP 

.1  HELP 

Displays  Help  Text.  [Note:  usually  "f2"  key] 

.TP 

.1  SPACE  BAR 

Recalcalculates  the  worksheet. 

.TP 

.1  page: 

Scrolls  the  worksheet  in  the  direction  of  the  arrow  key 
pressed  after  it.  [Note:  usually  Hf3"  key] 

.TP 

.1  QOTO  (» 

Allows  you  to  move  the  cursor  directly  to  a  specified  cell. 

[Note:  usually  "f4"  key] 

.TP 

.1  / 

First  character  of  every  keyboard  command  sequence. 

.TP 
.1  B 

Blank  a  range  of  cells. 

.TP 

.1  C 

Clear  the  worksheet. 

.TP 
.1  D 

Delete  current  column  or  row 

.TP 

.1  E 

Edit  a  formula  in  a  cell. 

.TP 
.1  F 

Format  display  style  for  a  cell. 
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.TP 

.1  I 

Insect  colunn  or  row. 

.TP 

.1  M 

Move  the  current  row  or  colunn  to  a  new  location. 

.TP 

.1  0 

Set  Options  for  Printer,  Terminal,  Delimiter. 

.TP 
.1  P 

Print  all  or  part  of  a  worksheet. 

.TP 
.1  R 

Replicate  cells  from  source  into  new  location. 

.TP 
.1  S 

Storage  (file)  commands. 

.TP 
.1  T 

Title  set  up  commands. 

.TP 

.1  W 

Window  set  up  comnands. 

.TF 
.1  X 

Exit  from  SUPERCOMP-TWEOTY 
.SH  NOTE 

SUPERCQMP— TWENTY  will  ignore  most  traditional  UNIX  keyboard  "interrupt" 
and  "quit"  signals.  To  terminate  the  package  you  must  use  the 
.1  /XY 
or 

.1  /XS 
comnands. 

.SH  FILES 

All  files  created  by  SUPERCOMP  will  be  directed  to  a  special  subdirectory  of  the 
.1  current  working  directory. 

.SH  DIAGNOSTICS 

The  messages  issued  by  SUPERCOMP-TWENTY  are  explained  in  the 
.SH  "SEE  ALSO" 
super (1L),  supert(lL) 

SUPERCCMP-TWENTY  HANDBOOK. 

.SH  AUTHOR 

SUPERCOMP-TWEfTTY  (C)  is  a  product  of  Access  Technology,  Inc. 
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supert ( 1L ) 


NAME 

supert  -  create  terminal  description  file  for  SUPERCCMP- 
TWENTY  (C) 

SYNOPSIS 

supert 

DESCRIPTION 

The  supert  command  will  create  a  terminal  description  file 
in  the  format  required  by  the  SUPERCOMP-TWENTY  electronic 
spread  sheet  package.  The  current  value  of  the  TERMCAP 
string  in  the  users  environment  is  used  to  build  the  file. 

The  name  of  the  file  will  be  . supertf il  in  the  current  work¬ 
ing  directory.  You  may  customize  this  file  to  set  up  your 
own  terminal  graphics  characteristics.  Customization  notes 
are  being  prepared  and  will  be  made  available  here  as  time 
permits . 


NOTE 

The  commanus  super  and  superd  will  look  for  the  terminal 
description  file  . supertf x 1  in  your  home  directory .  If  not 
found  in  your  home  directory,  SUPERCOMP-TWENTY  will  use  its 
own  terminal  description  file. 

DIAGNOSTICS 

Messages  issued  by  supert  will  warn  of  any  illogical  condi¬ 
tions  found  in  the  TERMCAP  string. 


SEE  ALSO 

super (1L),  superd (1L),  termcap(5) 

AUTHOR 

Mike  Trest,  System  Development  Corporation 
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NAVAL  OCEAN  SYSTEMS  CENTER,  SAN  DIEGO.  CA 
INGRES  TO  DBASE  AND  FINANCIAL  SPREADSHEET 
PROGRAM  PACKAGES  BY  J  BAIRD  SYSTEM 
DEVELOPMENT  CORPORATION 


■ 

ENi 

C&T 

FIU 

M«i 

0 

1E0 

NOSC  CR  225 
UNCLASSIFIED 
FEB  1984 


SECTION  3.7 


SUPERT  MPOFF  FILE 


.TH  super t  1L  NOSC 
riC  4 
.SH  NAME 

super t  \-  create  terminal  description  file  for  SUPERCOMP-TWENTY  (C) 

.SH  SYNOPSIS 

.B  super t 

.SH  DESCRIPTION 

The 

.1  super t 

command  will  create  a  terminal  description  file  in  the  format 
required  by  the  SUPERCCMP-TWENTTY  electronic 

spread  sheet  package.  The  current  value  of  the  TERMCAP  string  in 
the  users  environment  is  used  to  build  the  file. 

•sp 

The  name  of  the  file  will  be 
.1  .  super  tfil 

in  the  current  working  directory.  You  may  customize  this  file 
to  set  up  your  own  terminal  graphics  characteristics. 

Customization  notes  are  being  prepared  and  will  be  made  available 
here  as  time  permits. 

.SH  NOTE 
The  commands 
.1  super 
and 

.1  superd 

will  look  for  the  terminal  description  file 
.1  .super tfil 
in  your 

.1  heme  directory. 

If  not  found  in  your  home  directory,  SUPERC0MP-1WENTY  will  use 
its  otffi  terminal  description  file. 

.SH  DIAOCSTICS 
Messages  issued  by 
.1  super t 

will  warn  of  any  illogical  conditions  found  in  the  TERMCAP 
string. 

.SH  "SEE  ALSO" 

super (1L),  superd (1L),  termcap (5) 

.SH  AUTHOR 

Mike  Trest,  System  Development  Corporation 
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supert ( XL ) 


NAME 

supert  -  create  terminal  description  file  for  SUPERCOMP- 
TWENTY  (C) 

SYNOPSIS 

supert 

DESCRIPTION 

The  supert  command  will  create  a  terminal  description  file 
in  the  format  required  by  the  SUPERCOMP-TWENTY  electronic 
spread  sheet  package.  The  current  value  of  the  TERMCAP 
string  in  the  users  environment  is  used  to  build  the  file. 

The  name  of  the  file  will  be  . supertf il  in  the  current  work¬ 
ing  directory.  You  may  customize  this  file  to  set  up  your 
own  terminal  graphics  characteristics.  Customization  notes 
are  being  prepared  and  will  be  made  available  here  as  time 
permits . 


NOTE 

The  commands  super  and  superd  will  lock  for  the  terminal 
description  file  . supertf il  in  your  home  directory.  If  not 
found  in  your  home  directory,  SUPERCOMP- TWENTY  will  use  its 
own  terminal  description  file. 

DIAGNOSTICS 

Messages  issued  by  supert  will  warn  of  any  illogical  condi¬ 
tions  found  in  the  TERMCAP  string. 


SEE  ALSO 

super (IL),  superd (IL),  termcap(5) 

AUTHOR 

Mike  Trest,  System  Development  Corporation 
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SECTION  3.8 


File:  SUPEKT.C  Size:  16K 


Page :  i 


1: 

2: 

3: 

4: 

5: 

6: 

7: 

8: 

9: 

10: 

11: 

12: 

13: 

14: 

15: 

16: 

17: 

18: 

19: 

20: 

21: 

22: 

23: 
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/* 

a*******'***********************'*************************************'** 

*  superterm.c  create  SUPERCCMP-TWENTY  "TFIL"  from  TERMCAP  environment 

****■**★**★*'**•*  •*•*■*•**•***★*★***'*•****  *****  **★*****■**★★*■***★★***★********** 

V 

♦include  <stdio.h> 

♦include  <ctype.h> 

♦define  TFIL  ".supertfil" 
static  char  od []*" 01234567"; 

FILE  *fpa; 
char  *eptr ; 
char  *tptr ; 
char  ‘here; 

char  ‘getenv  ( )  ; 
char  ‘index  () ; 
char  *finditem()  ; 

int  kn[20] ; 
int  i,j,k; 

char  tfil [50] ; 
char  term  [  50]  ; 
char  value [100] ; 
char  padvalue [20] ; 
char  padoctal [20] ; 
char  line [1001 ; 

char  ku[40] ; 
char  kd[40] ; 
char  kr [40]  ; 
char  kl [40] ; 
char  khelp[20] ; 
char  kpage[20] ; 
char  kgoto[20] ; 

main (argc,argv) 
int  argc; 
char  ‘argv  [] ; 

{ 

/*  open  file  for  this  program  */ 
strcpy { tf il , TFIL) ; 

if  ((fpa  ■  fopen{tfil,"w+") )  ”  NULL) 

{ 

printf ("\nCANN0T  CREATE  %s\n",tfil); 
exit(-l) ; 

} 
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/*  get  pointer  to  TEEM  and  TERMCAP  */ 

if  ( (eptr  =  getenv ("TERM") )  =■  NULL) 

{ 

printf ("\ncannot  find  TERMCAP  in  environment^"); 
close (fpa) ; 
exit(-l) ; 

} 

else  strcpy ( term , eptr ) ; 

if  ((eptr  »  getenv ("TERMCAP"))  —  NULL) 

{ 

printf  ("\ncannot  find  TERMCAP  in  environment^"); 
close (fpa) ; 
exit(-l)  ; 

} 


/* 

*  heading  line  of  the  file 

V 

fprintf (fpa,"! %s  ",term); 

*line  ■  '\0 ' ; 

if  ( (finditem("li#", eptr, value))  !*  NULL) 

strcat (line, value  ?  padvalue  :  value); 
else  strcat  (line, "24") ; 
strcat (line,"  ") ; 

if  {(finditem("co#", eptr , value))  !*  NULL) 

strcat (line, value  ?  padvalue  :  value); 
else  strcat (line , " 80 " ) ; 

fprintf (fpa," %s  %s\n", line, tern) ; 

/* 

*  INPUT  keyboard  sequence:  LF,  CR 

V 

fprintf (fpa,"  INPUT  »  \\12\\200\\200", value) ; 
if  ( ( f indi tem ("cr-", eptr , value) )  !*  NULL) 

{ 

fprintf (fpa, "%s\\200\\200\n", value) ; 

} 

else  fprintf (fpa , "\\15\\200\\200\n" ) ; 


/* 

*  INPUT  keyboard  sequence:  UP  arrow 

V 

if  ((finditem("ku«",eptr, value))  I*  NULL) 

{ 

strcpy  (ku, value) ; 

fprintf (fpa,"  INPUT  ■  %s\\200\\l\n",ku) ; 

} 

else  if  ( ( f indi tern ( " up*" , eptr , value ) )  i«  NULL) 
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{ 

strcpy (ku , value ) ; 

fprintf (fpa,"  INPUT  =  %s\\200\\l\n",ku) ; 

} 

/* 

*  INPUT  keyboard  sequence:  DOWN  arrow 

V 

if  ((finditem("kd=",eptr, value))  !=  MJLL) 

{ 

strcpy (kd, value) ; 

fprintf  (fpa,"  INPUT  *  %s\\200\\2\n,,  ,kd)  ? 

} 

else  if  ( (f  indi  tem  ( "do*"  ,eptr,  value))  i=  NULL) 

{ 

strcpy (kd, value) ; 

fprintf  (fpa,"  INPUT  *  %s\\200\\2\n",kd)  ; 

} 

/* 

*  INPUT  keyboard  sequence:  RIGHT  arrow 

V 

if  ( (finditem("kr*",eptr , value ) )  !*  NULL) 

{ 

strcpy (kr, value) ; 

fprintf  (fpa,"  INPUT  -  %s\\200\\3\n\kr)  ; 

} 

/* 

*  INPUT  keyboard  sequence:  LEFT  arrow 

V 

if  ((f inditan ("kl*",eptr, value))  !«  NULL) 

{ 

strcpy (kl, value) ; 

fprintf (fpa,"  INPUT  -  %s\\200\\4\n",kl) ; 

} 

else  if  ( (finditem( "kb*", eptr, value))  !*  NULL) 

{ 

strcpy (kl, value) ; 

fprintf (fpa,"  INPUT  *  %s\\200\\4\n",kl) ; 

} 

/* 

*  INPUT  SPECIAL  FUNCTION  KEYS 

V 

strcpy  (khelp,"\\33\\62") ; 
strcpy (kpage, "\\33\\63") ; 
strcpy (kgoto , "\\33\\64" ) ; 
if  { (finditan ("kn#",eptr, value ) )  I*  NULL) 

.  ( 
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kn[0]  =  atoi (value  ?  pad value  :  value); 
if  ( (finditem("k2*",eptr, value) )  !=  NULL) 

{ 

strcpy (khelp, value) ; 
kn[2]  =  2; 

fprintf  (fj»,“  INPUT  =  %s\\200\\15\n",khelp) ; 

1 

else  printf ("\\nBAD  TERMCAP  VALUE  FOR  ,k2'\nH); 
if  ((finditem("k3»",eptr, value))  !=  NULL) 

( 

str cpy ( kpage , value ) ; 
kn[3]  *  3; 

fprintf  (fpa, "  INPUT  =»  %s %s\\200\\ll\n", kpage, ku ) ; 
fprintf  (fpa,"  INPUT  *  %s%s\\200\\12\n", kpage, kd) ; 
fpr intf ( fpa , "  INPUT  *  %s %s\\200\\13\n" , kpage , kr ) ; 
fprintf  (fpa,"  INPUT  =*  %s%s\\200\\14\n",  kpage,  kl ) ; 
fprintf (fpa,"  INPUT  *  %s%s\\200\\377\n" ,  kpage, kpage) ; 

} 

else  printf ("\\nBAD  TERMCAP  VALUE  FDR  'k3'\n") ; 
if  (kn[0]  >»  4) 

{ 

if  ( (finditem("k4»",eptr , value) )  !*  NULL) 

{ 

strcpy (kgoto, value) ? 
kn[4]  ■  4; 

fprintf (fpa,"  INPUT  -  %s\\200\\076\n",kgoto) ; 

} 

else  printf ("\\nBAD  TERMCAP  VALUE  FDR  'k4'\n") ; 

} 

else 

{ 

if  ((findit«n("kl»",eptr,v2due))  l»  NULL) 

{ 

str  cpy  (kgoto,  value).; 

Kn[l]  »  1; 

fprintf (fpa,"  INPUT  *  %s\\200\\076\n" , kgoto ) ; 

} 

else  printf ("\\nBAD  TERMCAP  VALUE  FDR  'kl'\n"); 

} 

if  (lkn[l]  &&  (finditera("kl«",eptr, value))  I*  NULL) 

{ 

fprintf (fpa,"  INPUT  ■  %s\\200\\15\n", value) ; 

} 

if  (lkn[4]  &&  (finditera(-"k4«",eptr, value))  !*  NULL) 

{ 

fprintf  (fpa,"  INPUT  »  %s\\200\\15\n", value) ; 

} 

if  (ikn(5]  &&  (finditem("k5*",eptr , value) )  Is  NULL) 

{ 

fjpr  intf  (fpa,"  INPUT  -  %s\\200\\15\n",  value)  ; 
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} 

if  ( 1  kn [6]  &&  (finditem("k6=" ,eptr , value) )  i*  NULL) 

{ 

fprintf {fpa, "  INPUT  *  %s\\200\\15\n", value) ; 

} 

if  (!kn[7]  &&  (finditem("k7*",eptr , value) )  !=  NULL) 

{ 

fprintf (fpa,"  INPUT  =  %s\\200\\15\n", value) ; 

} 

if  ( i kn [8]  &&  (finditem("k8*",eptr , value ) )  i*  NULL) 

{ 

fprintf (fpa, "  INPUT  *  %s\\200\\15\n", value) ; 

} 

if  ( 1 kn [9]  &&  (finditem("k9»",eptr , value) )  !*  NULL) 

{ 

fprintf (fpa, "  INPUT  »  %s \\200\\15\n", value ) ; 

} 

if  ( ! kn [  10 ]  &&  (finditem("kl0«",eptr , value) )  !»  NULL) 

{ 

fprintf (fpa,"  INPUT  »  %s\\200\\15\n" , value ) ; 

} 

if  ( i kn [  11  ]  &&  (finditem("kll»", eptr, value) )  !*  NULL) 

{ 

fprintf (fpa,"  INPUT  *  %s\\200\\15\n", value ) ; 

} 

if  (!kn[12]  &&  (finditera("kl2«",eptr , value) )  !»  NULL) 

{ 

fprintf (fpa,"  INPUT  »  %s \\200\\15\n", value ) ; 

} 

} 

else 

{ 

fprintf  (fpa,"  INPUT  ■  %s%s\\200\\ll\n",kpage,ku) ; 

fprintf (fpa,"  INPUT  ■  %s%s\\200\\12\n",kpage,kd) ; 

fprintf (fpa,"  INPUT  ■  %s%s\\200\\13\n",kpage,kr ) ; 

fprintf  (fpa,"  INPUT  *  %s%s\\200\\14\n",kpage,kl) ; 

fprintf (fpa,"  INPUT  *  %s%s\\200\\377\n",  kpage,kpage) ; 

fprintf {fpa," ;\n; info:  no  TEFMCAP  function  keys\n") ; 

fpr intf ( fpa , " ; info :  Please  use  following  manual  sequences : \n " ) ; 

fprintf (fpa,"; info:  'HELP'  ■  ESC  2\n") ? 

fprintf (fpa,"; info:  'PAGE'  »  ESC  3\n"); 

fprintf (fpa,"; info:  'GOTO'  ■  ESC  4^n;\n") ; 

} 


home  cursor  comnand 

if  ( (finditem("ho-",eptr , value) )  I-  NULL) 

{ 

fprintf (fpa,"  ho  ■  %s", value); 
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/* 

* 


/* 

* 

V 


/* 

* 


V 


/* 

* 

V 


if  (*padoctal) 

fprintf  (fpa,  "\\207\\%s\n"  ,padoctal) ; 
else  fprintf  (fpa, "\n") ? 

} 


erase  to  end  of  line 

if  ((finditem("ce*",eptr,  value))  i=  NULL) 

{ 

fprintf (fpa,"  el  *  %s", value); 

if  ("padoctal) 

fprintf (fpa,"\\207\\%s\n",padoctal) ; 
else  fprintf ( fpa, "\\207\\3\n") ; 

} 


erase  to  end  of  screen 

if  ((finditem("cd*",eptr,value))  !*  NULL) 

{ 

fprintf  (fpa,"  es  *  %s", value) ; 

if  (*padoctal) 

fprintf (fpa, "\\207\\%s\n" ,padoctal) ; 
else  fprintf (fpa, "\\207\\12\n") ; 

} 


move  cursor  right 

if  ( (finditem("nd-",eptr, value) )  !■  NULL) 

{ 

fprintf (fpa,"  ri  ■  %s", value); 

if  ("padoctal) 

fprintf  (fpa,"\\20A\%s\n",padoctal) ; 
else  fprintf (fpa, "\n") ; 

} 


move  cursor  to  start  of  new  line 

if  ((finditem("cr»",eptr, value))  !-  NULL) 

{ 

fprintf (fpa,"  nl  ■  %s", value); 

if  (*padoctal) 

fprintf  (fpa,"\\20A\%s\n",padoctal) ; 
else  fprintf  (fpa,  An") ; 

} 

else  fprintf (fpa,"  nl  -  \\15\\12\n") ; 
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forward  scroll  screen  by  one  line  when  at  bottom 

if  ( (finditem("sf=",eptr ,value) )  !=  NULL) 

{ 

fprintf (fpa,"  fs  *  %s", value); 

if  (*padoctal) 

fprintf (fpa, "\\207\\%s\n" ,padoctal) ; 
else  fprintf (fpa, "\n") ; 

} 

else  if  ((finditem("cr»",eptr, value))  !*  MILL) 

{ 

fprintf (fpa, "  fs  *  %s", value); 

if  (*padoctal) 

fprintf (fpa, "\\207\\%s\n" ,padoctal ) ; 
else  fprintf (fpa, "\n") ; 

} 


reverse  scroll  screen  by  one  line 

if  ((finditem("sr»",eptr, value))  !*  NULL) 

{ 

fprintf (fpa,"  rs  »  %s", value); 

if  (*padoctal) 

fprintf (fpa, "\\207\\%s\n" ,padoctal ) ; 
else  fprintf (fpa, "\n") ? 

} 


x,y  cursor  movements 

if  ((finditem("an»",eptr , value ) )  !*  NULL) 

{ 

transxy (value) ; 

fprintf (fpa,"  dc  ■  %s", value); 

if  (*padoctal ) 

fprintf  (fpa,"\\20A\%s\n",padoctal) ; 
else  fprintf (fpa, "\\207\\10\n" ) ; 

} 


set  up  graphic  options 

if  ((findxtera("as«",eptr , value) )  !■  NULL) 

{ 

fprintf  (^a,"  gl  ■  %s\\ 200a", value) ; 

if  ("padoctal) 

fprintf  (fpa,"\\20A\%s\n",padoctal) ; 
else  fprintf  (fpa,  An") ; 
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fprintf (fpa,"  g2  =  %s\\200a", value ) ; 

if  (*padoctal) 

fprintf (fpa, "\\207\\%s\n” , padoctal) ; 
else  fpr intf ( fpa , An " ) ; 
fprintf (fpa, "  g3  *  %s \\200a", value ) ; 

if  ("padoctal ) 

fprintf (fpa, "\\207\\%s\n", padoctal) ; 
else  fprintf  (fpa, "\n") ; 

fprintf (fpa,"  g4  *  %s\\ 200a", value ) ; 

if  ("padoctal) 

fprintf (fpa, "\\207\\%s\n",padoctal) ; 
else  fprintf (fpa, "\n") ; 

fprintf (fpa, "  g5  =  %s\\200a", value) ; 

if  ("padoctal) 

fprintf (fpa, *\\207\\%s\n", padoctal) ; 
else  fprintf  (fpa, "\n") ; 

fprintf (fpa,"  g6  *  %s \\200a", value ) ; 

if  ("padoctal) 

fprintf (fpa, "\\207\\%s\n" ,padoctal) ; 
else  fprintf (fpa, "\n") ; 

if  ((finditem("ae«",eptr, value) )  !*  NULL) 

{ 

fprintf  (fpa,"  gf  =  %s", value); 

if  (*padoctal) 

fprintf  (fpa ,  "\\20 A\%s\n"  ,padoctal ) ; 

else  fprintf  (fpa,"\n")  ; 

} 

} 

else  if  ((finditem ("so*", ^>tr , value))  l*  NULL) 

{ 

fpr intf ( fpa , "  gl  *  %s\\200o " , value ) ; 

if  (*padoctal) 

fprintf (fpa,"\\207\\%s\n",padoctal) ; 
else  fprintf (fpa, "\n") ; 
fprintf (fpa,"  g2  ■  %s\\200x", value ) ; 

if  (*padoctal) 

fpr  intf  ( fpa ,  "\\20  A\  %s\n" ,  padoctal ) ; 
else  fprintf  (fpa,  An") ; 

fprintf (fpa,"  g3  ■  %s\\200# ", value ) ; 

if  (*padoctal) 

fprintf  (fpa,  A\20A\%s\n", padoctal) ; 
else  fprintf  (fpa,  An") ; 

fprintf (fpa,"  g4  ■  %s\\200@", value ) ; 

if  ("padoctal) 

fprintf  (fpa,  "\\20A\%s\n", padoctal) ; 
else  fprintf  (fpa,  An") ; 

fprintf (fpa,"  g5  ■  ls\\200+", value ) ; 

if  ("padoctal) 

fpr  intf ( fpa , A\207\\%s\n" , padoctal ) ; 
else  fprintf  (fpa,  An") ; 
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fprintf  (fpa, "  g6  =  %s\\200%" , value ) ; 

if  (*padoctal ) 

fprintf ( fpa, "\\207\\%s\n" ,padoctal ) ; 
else  fprintf ( fpa , H\n" ) ; 

if  ( ( f indites (" se='',eptr,  value) )  1=  NULL) 

{ 

fprintf  (fpa,"  gf  =  %s", value); 

if  (*padoctal) 

fprintf  (fpa , "\\207\\%s\n" ,padoctal ) ; 
else  fprintf (fpa, "\n") ; 

} 

} 

/* 

*  initizilation  strings 

V 

if  ((finditem("is»",eptr, value))  !=  NULL) 

{ 

fprintf  (fpa, "  is  «  %s", value); 

if  (*padoctal) 

fprintf (fpa , "\\20 A\%s\n" ,padoctal ) ; 
else  fprintf (fpa, "\n") ; 

} 

/* 

*  close  up  and  go  home 

V 

fprintf  (fpa,"i\n") ; 
fclose(fpa) ; 

} 

/* 

*  end  of  main 

V 

/* 

k********************************************************************* 


*  find  requested  string  in  the  string,  (first  occur ance  only) 

* 

*  'test'  is  the  item  to  be  located 

*  'eptr '  is  the  string  address  to  begin  searching 

*  'value'  is  the  place  to  put  the  data  following  the 

*  test  item,  (up  to  next  ' : ' ) 

* 

*  return  NULL  if  not  found 

*  return  pointer  to  the  item  if  found 

*  return  the  TEBMCAP  value  string  in  'value' 

*  if  a  pad  value  is  present  return  it  in  'pad value' 

*  and  the  octal  equilivent  in  'padoctal' 

*  if  '\E'  or  '“x'  stuff  is  present,  change  it  to  octal 

* 

*********************************************************************** 
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V 

char-  * 

finditem(test,eptr , value) 
char  *test,  *eptr,  *value; 

{ 

register  char  *pl,  *p2,  *p3; 


} 

/* 


♦padvalue  *  *padoctal  =  '\0 1 ; 
for(  ;  *eptr  ;  eptr++  ) 

{ 

for (pl»eptr ,p2=test,p3=NULL;  *pl,*p2;  pl++,p2++  ) 

{ 

if  (*p2  ™  *pl) 
p3  =  pi; 

else 

{ 

p3  «  NULL; 
break ; 

} 

} 

if  (p3) 

{ 

for  (p2**value;  *pl  &&  *pl  !*  ' ) 

{ 

*p2++  *  *pl++; 

} 

*p2  *  '\0' ; 

translate (value) ? 
return (eptr ) ; 

} 

} 

return  (NULL) ; 


*  translate  standard  syntax  items  from  termcap  style  to  TFIL  style 

*  replace  the  input  value  with  the  results 
*********************************************************************** 


V 

translate  (value) 
char  *value; 

{ 

char  newvalue  [100] ; 
char  work[ll] ; 
int  i; 

register  char  *pl,  *p2,  *w; 


♦newvalue  ■  *padvalue  ■  *padoctal  ■  '\0 ' ; 


/*  save  any  leading  decimal  digits*/ 
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501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 


/*  on  the  assumption  that  they  are*/ 

/*  padding  for  time  delay  */ 

for (pl=value ,  p2=padvalue;  isdigit{*pl)  ;  ) 

{ 

*p2-H-  =  *pl++; 

} 

*p2  *  '\0'; 

if (*p2  &&  *pl  =  '*') 

{ 

pl++; 

*p2++  =  '0';  /*weight  x  10*/ 

*p2  *  '\0'j 

} 

if  (*padvalue ) 

{ 

if (i  *  atoi (padvalue) ) 

{ 

strcpy (work, "  "); 

w  *  iwork  [ (strlen (work) ) ] ; 
do 

{ 

*  —  w  =  od [ (int) (i%8) ] ; 
}  while  ((i  /■  8)  !*  0); 
strcpy (padoctal ,w) ; 

} 

else  *padoctal  *  ’\0'; 

} 

/*  transform  escape  character  "\E"  to  "\33"  */ 

/*  and  "V  control  characters  to  octal*/ 
for  (p2*newvsdue;  *pl  ;  ) 

{ 

if(*pi  —  V) 

{ 

pl++; 

*p2++  -  'W; 
i  »  (*pl  &  0xlf ) ; 
pl++; 

strcpy (work, "  "); 

w  ■  swork [ (strlen (work) ) ] ; 
do 

{ 

*  —  w  -  od [ (int) (i%8) ] ; 
}  while  ( (i  /-  8)  !■  0); 

while  (*w)  *p2++  ■  *w++  ; 

*  } 

else  if(*pl  ■■  '\\') 

{ 

*p2++  ■  *pl++ ; 
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551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 


if  (*pl  —  'E') 

{ 

pl++; 

*p2++  *  ’3'? 

*p2-H-  =  '3'; 

} 

} 

else  *p2++  *  *pl++; 

} 

*p2  *  '\0' ; 

/*  printf ("old>%s<  new>%s<\n", value, newvalue) ;  */ 

strcpy (value, newvalue) ; 

} 

/* 

*******+*++*****+*+*+******+++++***+++++++**+*+++*****+***+**********+** 
*  special  translation  routine  for  cursor  movement 

V 

transxy (value ) 
char  *value ; 

{ 

’nt  flagr; 
c-iar  valued  [10] ; 
char  oldvalue  [100] ; 
char  newvalue [ 100] ; 
char  c; 

register  char  *new,  *pl,  <*p2; 

strcpy (oldvalue , value ) ; 

/* 

*  test  for  reversed  sequenced  "%r" 

*  if  present,  set  flag  and  flush  "%r" 

V 

pi -oldvalue; 
flagr  »  0; 
do 

{ 

if  ((p2  -  index(pl, '%'))  !-  NULL) 

{ 

new  -  p2; 
new-H-; 

if  (*new  --  *r ' ) 

{ 

flagr++; 
pi  -  H-new  ; 
do 

{ 

*p2++  »  *pl++; 

}  while (*pl)  ; 

*p2  -  'NB*  ? 
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601 

break ; 

602 

} 

603 

else  pi  *  new; 

604 

} 

605 

else  break  ; 

606 

607 

}  vrtiile  ( !  f  lagr )  ; 

V 

608 

/* 

609 

*  test  for  '%%'  sequences  and 

610 

*  if  present,  convert  to  single 

611 

V 

612 

pl*oldvalue; 

613 

while  (*pl) 

614 

{ 

615 

if  ((p2  *  index (pi, '%') )  !a  NULL) 

616 

{ 

617 

pi  *  new  *  -t-fp2; 
if  (*new  — 

618 

619 

{ 

620 

do 

621 

{ 

622 

*p2++  *  *pl++; 

623 

}  vrtiile(*pl)  ; 

*p2  »  '\0' ; 

624 

625 

pi  *  new; 

626 

} 

627 

} 

628 

else  break  ; 

629 

} 

630 

/* 

631 

*  find  value  to  be  added  to  x 

632 

V 

633 

pl-oldvalue; 

634 

new-newvalue; 

635 

if  ((p2  »  index  (pi, '%'))  !-  NULL) 

636 

{ 

637 

if  (*(p2  +1)  —  '+') 

638 

{ 

639 

for  {  ;  pi  <  p2  ;  *new++  ■  *pl++)  ; 

640 

pl++;  /*  flush  "%"  */ 

641 

pl++;  /*  flush  */ 

642 

*new++  -  '\V; 

643 

*new++  -  '2'; 

644 

*new-H-  »  '0'; 

645 

if  (flagr ) 

646 

*new4+  ■  '2'; 

647 

else  *new++  ■  '1' ; 

« 

648 

do 

649 

{ 

650 

*new-H-  ■  *pl++; 
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651 

652 

653 

654 

655 

656 

657 

658 

659 

660 
661 
662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 
681 
682 
683 


*new  =  '\0'; 

}  while  (*pl  &&  (*pl  !=  '%'))  ; 

} 

> 

s 

if  ( (p2  *  index  (pi, '%'))  !=■  NULL) 

{ 

if  (*(p2  +1)  —  '+') 

{ 

for  (  ;  pi  <  p2  ;  *new++  *  *pl-H-)  ; 
pl++;  /*  flush  "%"  V 

pl++;  /*  flush  V 

♦new-H-  *  '\\' ; 

*newH  »  '2‘; 

*new++  ■  ' 0  * ; 

if  (flagr) 

*new++  »  ‘l*; 

else  *new++  ■  '2'; 
do 

{ 

*new-H-  *  *pl++; 

♦new  *  '\0 • ; 

}  while (*pl  &&  (*pl  I*  '%’))  ; 

} 

} 

for (  ;  *pl  ;  *new-t-+  ■  *pl++)  ; 

/*  printf ("old>%s<  new>%s<\n", value, newvalue) ;  V 
strcpy (value, newvalue) ; 

} 

/* 

************************************************************************ 
*  end  of  source 

************************************************************************ 

V 
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